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CHAPTER 1. INTRODUCTION 


RPG II is a 1 eripuaae oriented for business data processi no. 
This document specifies RPG II for the Dataooint 2200. Source 
oroarams and data can be Dreoared usina RPGPREP# CRPGPREP« or 
DATAFORM II. 

After oreoerina the source proaram# the RPG II comoi 1 e r must be 
run to d reduce the oblectoroaram. The oblect proaram is a 
self-contained Droaram which executes under DOS in the normal 
manner. 

RPG source oroarams are riqidlv formatted. In the subseauent 
text# source records will be referred to as if thev were 80-column 
Hollerith records. 

1.1 Installina The RPG II ComDiler 

Complete instructions for installation of the RPG II comoi1er 
are aiven in Aooendix A, The aDoendix also contains detailed 
instructions for comoi1ino oroarams and indexina# indexed (Indexed 
Sequential Access Method) files. 

1.2 Reauired Utility Proarams 

The followina utilities at the indicated version/revision 
levels (or hiaher) are reauired for full utilization of RPG II: 

RPGPREP 2.2 RPG Prooram Preparation Utility (DOS). 

CRPGPREP 1.2 RPG Prooram Preparation Utility (Cassette). 

INDEX 2.1 DOS Index Uti1itv. 

REFORMAT 1.3 DOS Reformat Utility. 

SORT 3.1 Disk Ooeratina System Sort. 

:\iote: Records sorted usina SORT J.l cannot exceed 249 characters 
in lenoth unless the 'T f option is specified to create an ADDROUT 
file. The # N' ootion must be used for fixed format files when the 
'I' ootion is omitted. Unless specified otherwise# the output will 

be in ASCII sequence. 
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1.3 WARNING! 


RP§ II Generates and processes fixed disk files in a format 
that differs from the format used bv RPG II 1.1 and 1.2! All fixed 
format disk files created bv RPG II Version 1 must be converted to 
the new format before Drocessina as indexed* direct or output 
files. 

To convert to the new format: 

1. Install the RPG II compiler. 

2. Convert existino fixed disk files usinq the 
DOS REFORMAT Utilitv. 

Tvoe: REFORMAT fi,1e-name-l*fi le-name-2JR 

— .v .. • 4 

The name of the source file should be substituted for_fi1e-name-1. 
The name of the converted output file is substituted for 
f i 1 e ••name-2. 

1.4 Definition of Terms 

EBCDIC (Extended Binarv-Code-Deeimal Interchenoe Code) 
Notation: The 256-character machine code u$ed inside the 

Dataooint RPG II system. Files are automatically translated to 
EBCDIC when read* and from EBCDIC to ASCII (if necessary) when 
written. 

Alphabetic Characters: The 26 alphabetic EBCDIC characters and 
the three EBCDIC characters '.'* '$'* and '#'. Numeric 
Characters: The EBCDIC characters 0-9. 

Special Characters:. The 217 EBCDIC characters not defined as 
alphabetic or numeric. 

Alphanumeric Characters: Any of the 256 EBCDIC characters. 

Alphanumeric Fields: All fields for which a decimal-oositions 
specification has not been made in the appropriate column of the 
specifications forms. Alphanumeric fields can contain 
alphabetic* numeric* or special characters. 

Numeric Fields: All fields havina a decima1-oositions 
specification in the appropriate columns of the specifications 
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forms 


Valid Dataooint RPG II Names: The following rules aoclv to 
names used in WPG II Droarams: 

RPG II filenames can be from 1-8 characters lonaJ RPG II field 
names can be from 1-6 characters Iona. 

The first character of either a filename or a field name must 
be alohabetic (see orecedi no definitions of alphabetic 
characters). The remainina characters can be any combination 
of alohabetic and numeric characters (special characters are 
1 not al1 owed). 

Blanks cannot aooear between characters in the name. 

1.5 General Dataooint RPG II Proaram Loaic 

Every Dataooint RPG II obiect oroaram has the same aeneral 
oroaram loaic. This loaic is based on the processing cycle 
performed for each incut record read. Every oroaram cycle 
involves three basic steos. 

1. Readina information (input). 

2. Performina calculations Corocessina). 

3. Recording results (output). 

In the RPG II cvcle» calculation and output can occur at two 
different times in the cycle? total time and detail time. 

1.6 Ooeraions at Total Time 

Total calculation and output are normally performed on data 
accumulated for a qrouo of related records which form a control 
arouo. When the fields of a record which determine the control 
aroup chanae# a control break occurs indicatina a new control 
arouo is startina. When a break occurs (shown bv control level 
indicators beina turned on)# calculation and cutout ooerations are 
performed usina information accumulated from all records in the 
previous control arouD. 
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1.7 Operations at Detail Time 

.Detajl calculations and detail outout.are normal 1y performed 
for individual data records. Total operations are performed 
before detail operations. Thus a record which causes a control 
break is processed after the total operations for the previous 
control group. 

1.8 General Program Cvcle 

An RPG object program proceeds throuah three major steps: 

1. Initialization 

2. Processing Cvcle 

3. Termination 

Initialization consists of: loading all neeeasarv_tables# 
clearing all working areas* and opening all/files .for the 
processing cvcle. The processing cvcle consists of: writing all 
heading and detail records* reading the.next input record and 
identifying it* performing total operations if a control break 
occurs* and then calculating all results from the record 
previously read. This cvcle repeats until the last record is 
processed. 

The first and last cycles are somewhat different from the normal 
cvcle. Before the first record is read* detail output conditioned 
by the IP indicator and unconditioned detail outout is performed. 
Total processing is bypassed until the cvcle after the first 
control break. 

After.the last record has been read# the last record indicator 
(LR) is turned on# as well as all control levels. After total 
processing has been performed# the normal cvcle is aborted and the 
termination routines are processed. 

Termination consists of: writing all necessary tables and closing 
all files. 

A detailed description of the object program loaic is found in 
Appendix A, 
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1.9 Source File Order and Proaram Specifications 

The source file consists of a source oroaram# optionally 
followed bv comoile-time tables and arrays. The source file 
contains uo to seven sections which can be coded on seven standard 
RPG specification sheets and entered usina the RPGPREP utility 
proaram. The seven forms are: 

1. Control Card Specification. This specification contains 
control information for the compiler. 

2. File Description Specification. This specification contain- 
file description information about all files used in the 
oroaram. 

3. Extension Specification. This specification contains extension 
information about all tables and arrays. 

4. Line Counter Specification. This soecification contains 
information about the number of lines to be printed on each 
f orm. 

5. Inout Specification. This specification contains information 
describina the records read bv the oroaram. 

6. Calculation Specification. This specification describes all 
calculations performed by the oroaram. 

7. Output Format Soecification. This specification describes the 
format of all records written bv the oroaram. 

The first part of the source oroaram may end with: a normal 
EDIT end-of-file# a record containing '/*b' in columns 1-3# or a 
record containina ' * * b ' in columns 1-3 (where»b indicates a 
blank). The first two cases sianifv the end of the source 
oroaramJ the last case sianifies that a user library inclusion 
and/or comoile-time tables follow the source proaram. 

If code from a user library is reauired# (see Appendix F for 
details)# a library inclusion record must immediately follow the 
'**b # record. A user library is reauired for SPECIAL inout-outout 
devices and non-standard tape labels. The EXIT operation (see 
Chapter 8) also reauires a user library. The format of a library 
inclusion is: # *LIBRARY' in columns 1-8# followed bv one or mpne 
blanks# followed bv a DOS file name. If no extension is supplied# 
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the extension 'RPG # Is assumed. If comolle-tim? tables are also 
used* a ***b # record shoiild follow the library inclyslon., 
Comolle-time tables follow the first '**b # record If no library is 
included# or the second '**b # record if one is used. Each 
comoile-time table must aooear in the order specified on the 
extension sheets# and must be separated by '**b* records. See 
Chapter 5 for a description of tables and arrays. 

After any of the orecedjno ootjonal sections have appeared# the 
source file should terminate with either a EDIT end-of-flle or a 
record containino V*b' in columns 1-3. 
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CHAPTER 2. COMMON FIELDS ON SOURCE 


This chapter defines entries common to all RPG codina sheets. 
Each codina sheet contains the followina entries: 

1. Columns 1-2 (PAGE). 

2. Columns 3-5 (LINE). 

3. Column 6 (FORM TYPE). 

4. Column 7 (COMMENTS). 

5. Columns 75-80 (PROGRAM IDENTIFICATION). 

2.1 Columns 1-2 (Paae) 

Entry ExdI anation 

01-99 Paae number. 

Columns 1-2 are for numberina the soecification sheets used in a 
iob. You can use more than one of each sheets but all sheets of 
the same tyoe must be kect toaether. When all the soecifications 
sheets are filled out# arranqe them in the followina order and 
number them in ascendina seauence: 

1. Control Card. 

2. File Description. 

3. Extension. 

4. Line Counter. 

5. Incut. 

6. Calculation. 

7. Qutout Format. 
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2.2 Columns 3-5 (Line) 

Entry Explanation 

Any Line numbers, 

numbers 

Columns 3?5 are used to number the lines,on each sheet,. Columns 
3-4 contain oreorinted line numbers* so in mpst eases line 
numberina is already done. The unnumbered lines below the, 
preprinted numbers can be used for additional lines or to insert a 
line.between tw 9 other completed lines. The control card 
specification line is always line 01, Any other lines on the 
sheets can be skipped. The line numbers used need not be 
consecutive* but should be in ascendina order. Line numbers are 
optional.,Note: RPGPREP automatically suoolies,1ine numbers. 

Column 5 is always set to zero to allow later insertion of up to 
nine new 1ines. 

2.3 Column 6 (Form Tvoe) 

Entry Explanation 

H Header 

F File Description Specifications. 

E Extension Specifications, 

L Line Counter Specifications. 

I Input Specifications. 

C Calculation Specifications. 

0 Output Format Specifications. 

Column 6 contains a code for each tvoe of source statement. 

2.4 Column 7 (Comments) 

Entry Explanation 

* Comment line. 
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CHAPTER 3. CONTROL CARD SPECIFICATION 


One control card is required for every oroaram. It provides 
information about vour Droaram and vour svstem to the RPG II 
compiler. Without this information vour source oroaram cannot be 
translated into an RPG II obiect oroaram, 

3.1 Columns 1-2 (Paae) and 3-5 (Line) 

Refer to Chaoter 2. 

3.2 Column 6 (Form Tvoe) 

An H must a do ear in column 6. A control card with an H in 
column 6 must be entered for everv oroaram even if all other 
columns are left blank. 

3.3 Columns 7-9 

Columns 7-9 are not used. The oroaram is compiled in the 
available core storaae. 


3.4 Column 10 (Obiect Cutout) 

Column 10 is checked and if it contains neither C» D# or 
blank# a warnina is produced. The oroaram identification's 
iqnored. No obiect oroaram is produced when severe (terminal) 
errors are present in the source statements. 


3.5 Column 11 (Listing Options) 


Entry 

Blank 


8 


Explanation 

1. The obiect oroaram is produced (if no severe 
errors are found). 

2. The oroaram listina is printed. 

1. The obiect oroaram is produced (if no severe 
errors are found). 

2. The oroaram listing is not printed. 


Column 11 provides for listina options at the 
time vour source oroaram is compiled. If any severe errors are 
found during comoilation# the svstem halts after completing the 
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listing (provided a listing is to be printed). 

The blank entry is the usual case# producing an object program (if 
no severe.errors are found) and a source program listing. The 
program listing consists of the source program# error messages# 
and a core map. The core mao lists such information as relative 
addresses of fi. e l ds ' constants# and I/O areas,. The core mao is 
printed only if the program is successfully comoiled. The B entry 
means that no program listing is printed? however# an object 
program is produced. 

3.6 Columns 12-14 (Core size to Execute) 

Core size to Execute is documentary only and does not affect 
program execution in any wavl 

Col umns'^l 3-14 

Entry Explanation 

Blank The core storage reouired for object program 

execution is the same as that used to compile the 

program. 

01-13 The core storage reauired for program execution (if 

different from core storage available for object 
program generation). 

Use columns,13-14 to soecifv some multiple of IK 
bytes of storage (Ksi024). Columns 13-14 document the core, 
storage reauired for program execution. The entry must end in 
column 14. 

3.7 Column 12 

Entry Explanation 

Blank# No additional 256-bvte increments are needed. 

0 

Q One additional 256-bvte increment is needed. 

H Two additional 256-bvte increments are needed (512 

bytes). 

T Three additional 256-bvte increments are needed (768 

bvtes). 
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Column 12 may be used to soecifv additional 256«bvte 
increments of storaae. These increments document an extra 1 /uk, 
1/2K or 3/4K of storaae to be reauired in addition to the storaae 
specified in columns 13-14. 

3.8 Column 15 (Debua) 

Entry Exolanation 

Blank DEBUG operation is not performed. 

1 DEBUG operation is performed. 

In order to perform a DEBUG operation: 

1. A 1 must appear in column 15 when the source oroaram is 
comoi1eo. 

2. The DEBUG operation code must appear in calculation 
specific ations . 

3.9 Columns 16-25 

Columns 16-25 are not used. Leave them blank. 

3.10 Column 26 (Alternate Collatina Sequence) 

Entry Explanation 

Blank Normal (EBCDIC) collatina seauence is used. 

A ASCII collatina seauence is used. 

Use column 26 if lob collatina seauence is in ASCII. 
Seauence checkina# comparisons and indexed disk files will be 
processed in ASCII seauence. 

3.11 Columns 27-74 

Columns 27-74 are not used. Leave them blank. 

3.12 Columns 75-80 (Proaram Identification) 

See Chanter 2. 
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CONTROL CARD SPECIFICATION 
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Figure 3-1. Examole of Control Card Specification. 
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CHAPTER 4. FILE DESCRIPTION SPECIFICATIONS 


File description specifications are required for every file 
used by a program, write these specifications on the File 
Description Sheet, Only one line is needed to describe a file. 

4,1 Columns 1 ~<L (Page) and 3-5 (Line) 

Refer to Chapter 2. 

4. <2 Column 6 (Form Type) 

An F must appear in column 6, 

R.3 Columns 7-14 (File Name) 

Use columns 7-14 to assign a unique filename to every file 
used in your program except compile-time table and array files# 
which must not be named on the File Description Sheet, (Compile 
time tables and arrays are described on the Extension Sheet). The 
filename can be from 1-8 characters long# must begin in column 7# 
and must be a valid RPG II name. The filename can be the same as 
afield name. 


Pre-execution time table ana array files are described on the File 
Desc riPtion Sheet. 


When assigning file names for processing existing indexed files# 
the file name should refer to the index to be used. The associated 
data tile will be selected whenever the index is referenced. 


4.4 Column 
Entry 
I 

0 

U 

D 

Use column 


15 (File Type) 

Explanation 
Input file 
Output file 
Updat e f i 1 e 
Disp1 ay f i 1 e 

15 to identify the way in which your program uses the 
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file. All input file descriptions must preceed other file 
descriptions, 

4.5 Input File 

Input files are records that a program uses as a source of 
data. When input files are described in a program it indicates 
that records are to be read from the file. All input files except 
table and array files must be further described on the Input 
Sheet. Table and array files must be further described in the 
Extension Sheet. 

4.6 Output Files 

Output files are records that are written or printed by a 
program. All output files* except table and array output files* 
must be further described on the Output-Format Sheet. 

4.7 Update Files 

Update files are disk files from which a program reads a 
record* updates fields in the record* and writes the record back 
in the location from which it was read. Update files must be 
further described on both the Input Sheet and Output-Format Sheet. 
A chained file or a demand file may be updated at detail time* at 
total time or exception time. All other disk files can be updated 
only at detail time during the same program cycle that reads the 
record. 

4.8 Display Files 

A display file is a collection of information from fields 
used by a program. The DSPLY operation code must be used on the 
Calculation Sheet in order to display a field or record directly 
from storage and/or key data into a field or record in storage. 
Display files need only be described on the File Description 
Sheet. The device associated with a display file must be a 
keyboard-display (CONSOLE). See Operation Codes, DSPLY in Chapter 
8 for more information. 

4.9 Column 16 (File Designation) 

Entry Explanation 

P Primary fi 1 e 

S Secondary file 
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C Chained fi1e 

R Record address file 

T Table or array file (pre-execution time tables or 

arrays) 

D Demand fi1e 

Use column 16 to further identify the use of input? 
update? and chained files. Leave the column blank for display 
files and all output files except chained ana table output files. 

4.10 Primary Files 

A primary file is the main file from which a program reads 
records. In multifile processing the primary file is used to 
control the order in which records are selected for processing. 

It can be an input or update file. In programs that read records 
from only ohe file? that file is tne primary file. Every program 
must have one and only one primary file. The primary file 
description must be the first file description entry, 

4.11 Secondary Files 

Secondary files apply to programs that do multifile 
processing. All of the files involved in multifile processing? 
except the primary file? are secondary files. A secondary file 
can be an input? or update file. Secondary files are processed in 
the order in which they are written in the file description 
specifications? except when matching records (MR) or when the 
FORCE operation is used. Note that table? chained? and demand 
files are not involved in record selection in multifile 
processing. 

4.Chai ned Files 

A chained file is a disk file that is read or written 
randomly via the CHAIN operation code. A chained file can be an 
input? output? or update file. If it is output and indexed? the A 
option must be specified in column 66. This is because a chained? 
indexed file must have an index built using the INDEX Utility 
program. If this has been aone? the file already exists and any 
records written are appended to the existing file. 
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4,13 Record Address Files 


A record address file is an input file that indicates which 
records are to be read from a disk file and the order in which the 
records are to be read from the disk file. You cannot use more 
than one record address file per controlled disk file. All record 
address files must be further defined in extension specifications. 

Record address files contain binary relative record addresses and 
are called ADDRQUT (address output) files. They are disk files 
produced by the DOS Sort program and can be used with any type of 
disk file. See Column 28 (Mode of Processing)* By ADDRQUT File* 
in this chapter for more information. 

4.14 Table or Array Files 

A table or array file is an input or output file that 
contains table or array entries. The entries can be read into the 
program from a table input file immediately before execution of 
the program. Only pre-execution time tables or arrays are 
described on the File Description Sheet. However* both 
pre-execution and compile time tables and arrays must be described 
in the Extension Sheet, 

A table or array output file (written after IR output) can be 
defined and used as a normal output file and does not require an 
entry in column 16, If the only output to the file is tables and 
arrays* the fi.le should be designated as a table output file. 

Table and array files are not involved in record selection and 
processing. They are only a means of supplying entries for tables 
or arrays used by the program. When table or array files are read 
during the execution of the program* the program reads all the 
entries from the table or array files before it begins record 
processing. See Chapter 5 for additional information, 

4.15 Demand Files 

Demand files can be input or update files. The READ 
operation code must be used on the Calculation Sheet in order to 
read consecutively from a demand file. Demand files can only be 
processed consecutively. See Operation Codes* READ in Chapter 8 
for a discussion of processing demand files. 
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4.16 Column 17 (End of File) 

Ent ry Explanation 

E All records from the file must be processed before 

the program can end. 

Blank 1. The program can end whether or not all of the 

records from the tile have been processed, 

i . If column 17 is blank for all of the files# all 
records from every file must be processed before 
the program can end. 

Column 17 applies to programs that perform 
multifile processing. Use it to indicate whether or not the 
program can end before all of the records from the file ape 
processed. It applies only to input and update files that are 
used as primary or secondary files. 

If the records from all the files must be processed# column 17 
must be blank for all files# or contain E's for all files, 

A program that performs multifile processing could reach the end 
of one file before reaching the end of the others. It therefore 
needs some indication of whether it is to continue reading records 
from the other files or end the program. An entry in column 17 in 
the descriptions of the files provides that indication. 

4.17 Column 16 (Sequence) 

Entry Explanation 

A Sequence checking is to be done. Records in the 

file are in ascending order, 

D Sequence checking is to be done. Records in the 

file are in descending order. 

Blank No sequence checking is to be done. 

Column 16 applies to update files# and all input 
files except table# array# chained# and demand files. Leave 
column 16 blank for output# display# table or array files# and 
chained files. Use it to indicate whether or not the program is 
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to check the sequence of the records. Use columns 61-62 on the 
Input Sheet to identify the matching fields containing the 
sequence information. The proper collating sequence for sequence 
checking (EBCDIC or ASCII) is determined by the column 26 in the 
Control Card Specification, 

Sequence checking is required when matching fields are used in the 
records from the file. When a record from a matching input file 
is out of sequence# the program halts# and the operator has three 
options: 

1. Bypass the record out of sequence and read the next record 
f rom the same file, 

2. Bypass the record out of sequence# turn on the LR indicator 
and perform all end-of-job and final total procedures, 

3. Cancel the entire program. 

See Appendix A for a detailed description of operating 
procedures. 

4.18 Column 19 (File Format) 

Entry Explanation 

F Fixed-length records. 

V Variable-length records. 

In Datapoint RPG II there are two types of file organizations# 
fixed and variable. Disk files may be either? cassette files must 
be variable? files on other devices must be fixed. 

4.19 Fixed Format Files 

These files have definite record length and are not subject 
to special processing. Disk files to be updated or processed 
randomly must be fixed format. See Appendix G for further details 
about fixed-format disk files, 

4.20 Variable Format Files 

These files have a maximum record length and are compatible 
with Datapoint software using the sequential record format such as 
the general purpose editor program EDIT. On input# blanks are 
expanded? on output# blanks are compressed. See Appendix G for 
further details about variable-format disk files. 
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4.21 Columns 20-23 (Block Length) 

Entry Explanation 

Number Length of block. 

Blank Default block length. 

These columns have differing interpretations depending on the 
device assigned for the file (see Columns 40-46). If an entry is 
specified, it must end in column 23, Leading zeros may be 
omitted, 

4.22 Disk Files 

The block length for fixed-format disk files may be a 
multiple of the record length. This is allowed for language 
compatibility, however, Datapoint RPG will always assign the most 
efficient block length. For variable-format disk files these 
columns must either be blank or equal to the record length. 


T ape Files 

These columns may either be blank or contain a multiple of the 
record length, 

4.23 Other Files 

These columns must either be blank or contain the record 
length, 

4.24 Columns 24-27 (Record Length) 

tntry Explanation 

Number The number of characters used in each record 
(limited by the device used). 

Use columns 24-27 to indicate the length of the 
records in the file. For variab1e-format files the record length 
defines the maximum size of a record. The actual size is 
determined by the data read or written. For fixed-format files, 
information is transferred in units of the record length. All of 
the records in one file must be the same length, (For update 
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files# the length of a record after it is updated must be the same 
as before it was updated). The maximum record length allowed and 
the size of the I/O area assigned depend upon the device assigned 
to the file. The record length specified# may be shorter than the 
maximum length for the device. The entry placed in these columns 
must end In column 27. Leading zeros can be omitted. 

4.25 Column 28 (Mode of Processing) 

Entry Explanation 

L Sequential within limits, 

R 1. Random by relative record number, 

2. Random by key, 

3. By ADDRQUT file. 

4. Direct file load (random load). 

Blank 1. Sequential by key. 

2. Consecutive, 

Use column 28 to indicate the method by which 
records are to be processed. Only indexed disk files can be 
processed sequentially by key or within limits. Disk files that 
are Indexed# chained or controlled by an ADDROUT file can be 
processed randomly. All other files must be processed 
consecutively. 

Column 31 is used to further identify the processing method. See 
column 31 (Record Address Type) in this chapter. 

4.26 Consecutive Method 

The consecutive method applies to all files. During 
consecutive processing records are read in the order in which they 
physically appear in the file. The contents of spaces left for 
missing records in direct (fixed-format) files are read as though 
the records were there. (Such spaces are filled with blanks). 

The program reads records from the file until either the end of 
that file is reached or the program ends due to the end-of-file 
condition of another file. See column 17# End of File# in this 
Chapter for more information about the second condition. 
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4,27 By ADDROOT File 


An ADDROUT (address output) file is a record address file 
produced by the DOS Sort Program, It is a file of 3-byte disk 
records containing binary relative record addresses of records in 
a disk file, RPG II locates and reads the record at the specified 
address in the original disk file. Records are read in this 
manner until either the end of the ADDROUT file is reached or the 
program ends due to the end-of-file condition of another 'He, 

See Column 17, End of File in this chapter for more information 
about the second condition. 

4.28 Sequential By Key 

Processing sequentially by key applies only to indexed disk 
files that are used as primary* secondary or demand files. 

Records are read in ascending key sequence established when the 
file was INDEXed by the INDEX utility program (See Appendix A), 

The alternate collating seauence option (Column 26 in Control 
Card) must agree with the option used when iNDEXing the file 
(EBCDIC or ASCII). The program reads records from the file until 
either the end of that file is reached or the program ends due to 
the end-of-file condition of another file. See column 17* End of 
File* in this chapter for more information about the second 
condition. 

4.29 Sequential Within Limits 

Sequential within limits processing is accomplished using the 
SETLl operation code during calculations. The SETll operation code 
is used to establish a lower limit for sequentially processing 
primary* secondary, or demand files. The upper limit (if not 
end-of-file) must be checked using the COMP operation code. 

When using SETLL with primary and secondary files* care should be 
exercised to discard the first record read (as part of the normal 
input cycle) prior to entering calculations and executing the 
first SETLL. (See Operation Codes* SETLL in Chapter 8), 
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4,30 Random Method 


Two methods* random by relative record number and random by 
key* apply to chained files only. They require the use of the 
CHAIN operation code. The records of a file to be read or written 
must be processed by the CHAIN operation code. The records are 
read or written only when the CHAIN statements that identify them 
are executed. 

When processing fixed blocked disk files "directly" (without using 
an ISAM index)* relative record numbers are used to identify the 
records. Relative record numbers identify the positions of the 
records relative to the beginning of the file. For example* the 
relative record numbers of the first* fifth* and seventh records 
in a file are 1* 5* and 7 respectively, (See Operation Codes* 
CHAIN in Chapter 8). 

For indexed files* record keys must be used to locate the records, 
A record key is the information used to match unique data in a 
field in each record that is used to identify that record. Record 
key fields are defined when a fixed blocked disk file is indexed 
with the INDEX utility program (See Appendix A), 

Records are read during the calculation phase of the program. 
Therefore* fields from these records can be used during detail or 
total calculations. Note then* that fields of records read from 
chained update files can be read and altered during calculations 
and the records can be updated (written back on the file with 
alterations) during output, 

4,31 Columns 29-30 (Length of Key) 

Entry Explanation 

Number Length of record key or ADDRQUT file record 

Columns 29-30 apply only to indexed disk files and 
record address files. Enters 

1. The length of the record keys in indexed files, 

2, The length of the records in ADDRUUT files. 

All of the key fields in the records in an indexed file must be 
the same length. The maximum is 99 bytes. All of the records in an 
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AODROUT file have a length of three. A leading zero is never 
required. 

4.32 Column 31 (Record Address Type) 

Entry Explanation 

A Record keys in unpacked format are used in 

processing indexed tiles. 

I The file is being processed by means of an AODROUT 

file or the file is an AODROUT file. 

Blank 1. Relative record numbers are used in processing 

sequential and direct files, 

2. A sequential or direct file is being loaded. 

3. Records are read consecutively. 

Column 31 indicates the way in which records in 
a disk file are identified. 


Column 32 (File Organization or Additional I/O Area) 

4.33 Column 32 (File Organization) 

Entry Explanation 

I Indexed file, 

T ADDROUT file. 

Blank Sequential file or direct file. 

Use column 32 to identify indexed and ADDROUT files. 

See Column 28/ Mode of Processing for further details, 

4.34 Columns 33-34 (Overflow Indicator) 

Entry Explanation 

UA-OG/ An overflow indicator is used to condition 
OV records in the file. The indicator specified is the 

one used. 
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Blank No overflow indicator is used. 

Columns 33-34 apply to the output file assigned to 
the printer. Use these columns to indicate that you are using an 
overflow indicator to condition records being printed in the file. 
Any overflow indicators used in a program must be unique for the 
output file assigned to the printer. Note that only one overflow 
indicator can be assigned to a file. Do not assign overflow 
indicators to a console file, 

4.35 Overflow Indicator 

Overflow indicators are used only with printer files# 
primarily to condition the printing of heading lines. If you 
intend to use an overflow indicator to condition output lines on 
the printer# you must assign an overflow indicator to the printer 
file on the File Description Sheet (columns 33-34), The same 
indicator must be used to condition all lines that are to be 
written only when overflow occurs. 

If the destination of a space/skip or print operation is a line 
beyond the overflow line# the overflow indicator is turned on and 
remains on until all overflow lines are printed. However# if a 
skip or space is specified that advances the form past the 
overflow line to the first line or past the first line on a new 
page# the overflow indicator does not turn on. 

If an overflow indicator is used as a conditioning indicator# it 
indicates that output is to be performed at overflow time. This 
applies whether or not the line conditioned by the indicator is in 
an AND or OR relationship with other indicators. 

The overflow indicator may be set by the SETQN or SETOF operation 
code. After all total records have been written# however# the 
indicator is set as it normally is in accord with the overflow 
line, 

4.36 Columns 35-38 (Key Field Starting Location) 

Entry Explanation 

1-255 Record position in which the key field begins. 

Columns 35-38 apply to indexed files only. An entry 
must be made in these columns for an indexed disk file. Enter the 
location in which the key field begins in indexed file records. 
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The nurftbeh entered must end in column 38, Leading zeros can be 
omitted, 

4.37 Column 39 (Extension Code) 

E Extension specifications further describe the file, 

L Line counter specifications further describe the 

file. 

Column 39 applies to (l)table and array files that 
are to be read during program execution/ (2)record address files/ 
and (3)the output file assigned to the printer. Output files that 
are assigned to the printer can be described on the Line Counter 
Sheet, Tables/ array/ and record address files must be described 
on the Extension Sheet. 

4.38 Column 40-46 (Device) 


Entry 

Explanation 

PRINTER 

Printer, 

CONSOLE 

Keyboard Display. 

DISK 

Disk. 

READER 

Card Reader. 

TAPE 

Industry-compatible 9 track tape unit. 

CASSET 1 

Rear tape cassette. 

CASSET 2 

Front tape cassette. 

LOADER 

Pseudo-device for use with the DOS CHAIN command 

SPECIAL 

Special input/output device not supported by RPG II 
(See Appendix F), 

device to be 
1 he devices 

These columns are used to specify the input/output 
used for the file. All entries begin in column 40. 
that can be used depend upon the record form. 
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AVAILABLE DEVICES 


FILE 

FORM 

DEVICES 

MAXIMUM 

BLOCK 

LENGTH 

Primary or 
Secondary 

Input 

Disk 

DISK (fixed or 
variable format) 

9999 


Cards 

READER 

80 


T ape 

TAPE 

1024 


Cassette 

CASSET 1 or CASSET2 

249 


Keyed In 

CONSOLE 

78 

Chained Input 
Files 

Disk 

DISK (fixed format) 

9999 

Update Files 
(Primary, 
Secondary, 
or Chained) 

Disk 

DISK (fixed format) 

9999 

Output Files 

Disk 

DISK , (fixed or 
variable format) 

9999 


T ape 

TAPE 

1024 


Cassette 

CASSET 1 or CASSET2 

249 


Printed 

PRINTER 

132 


CRT 

CONSOLE 

80 

Display File 

CRT 

CONSOLE 

80 

DOS Chaining 

Pseudo-device 

LOADER 

80 

Specia 1 Files 

? 

SPECIAL 

9999 
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4.39 Use of the LOADER Device for Program Chaining 

This device may be used to construct a command line to be 
executed by the DUS command processor after the normal end of an 
RPG II object program. The LOADER must be used as an output filer 
and the command line can typically be written during the last 
total cycle (LR-time). The simplest use of the LOADER is to 
invoke some other program/ for example/ the DOS SORT, By 
constructing a sequence of DOS commands on some disk file and then 
writing "CHAIN file" on the LOADtR/ where "file" is the DOS name 
of the command file/ more complex sequences may be realized. 

Only one record may be written on the LOADER during the execution 
of the object program. If the object program aborts/ rather than 
concluding normally/ the command line is ignored, 

4.40 SPECIAL Device Support 

You can process files using devices not supported by RPG II, 
To do this/ you must indicate that the file will be handled by a 
SPECIAL device (SPECIAL in columns 40-46 of the Pile Description 
Sheet), You must also supply a subroutine to perform the I/O 
operations required to transfer data between the SPECIAL device 
and core storage (subroutine name in columns 54-59 of the File 
Description Sheet), 

The following can be used with SPECIAL files; 

FORCE operation code, 

READ operation code. 

The following cannot be used with SPECIAL files: 

CHAIN operation code. 

Spacing and skipping, 

SPECIAL files can only be processed consecutively. See Appendix F 
for the conventions used by RPG II to call the input-output 
subroutine. 
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4.41 Columns 47-52 


4.42 


These columns are not used and should be left blank. 
Columns 53-65 (Continuation Lines) 


4,43 Column 53 


Ent ry 

A 

D 

S 

N 

U 

K 


Explanation 

Assign disk file name at run-time. 
Disk file name defined at run-time. 
Standard labels are used. 
Non-standard labels are used. 

No labels are used. 

Continuation Record. 


If the file being defined is a disk file/ column 53 may contain 
'A' or 'D'. (If it is left blank, 'A' is assumed.) When the 'A' 
.entry is used, the object program will ask for the DOS external 
file name to assign to the current internal file. When the 'D' 
entry.is used, the external file name is assumed to be the same as 
the internal file name. See Appendix A and the 'EXTDRV' entry in 
columns 54-59 for additional information. 


Column 53 must contain 'S', 'N', or 'U' if the file is a tape 
file. If non-standard labels are being used, columns 54-59 must 
contain the name of the user-supplied subroutine for processing 
the labels, (See Appendix E for calling conventions.) 


If the preceding File Description line describes an ASCII tape 
file, column 53 must contain 'K' and columns 54-59 must contain 
'ASCII', 


If the preceding File Description line describes a disk or printer 
file, column 53 may contain a 'K', in which case columns 54-65 
contain additional file specifications. See the following 
discussion. 
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4.44 Columns 54-59 


Entry ExpI anati on 

EXTDRV Extension and/or drive for disk file 

MAXSEC Maximum number of sectors for new disk files 

LOCAL The Local printer is used at object time 

SERVO The Servo printer is used at object time 

(The DEVICE in the preceding File 
Description line must be PRINTER.) 

ASCII TAPE file written in ASCII 

For files assigned to the printer, you may specify whether a local 
or servo printer will be used at execution time by means of a 
continuation card. If no specification is given, the local 
printer is assumed. 

4.45 Columns 54-59 (Name of Label Exit) 

Ent ry Explanation 

RPG name Name of the user-written subroutine which 

will perform the I/O operation for a SPECIAL 
device, or which will process non-standard 
t ace 1abe1s , 

blank No SPECIAL device or non-standard labels 

are being used. 

Columns 54-59 must contain an entry tor each data 
file assigned to a SPECIAL device or to a TAPE file with 
non-standard labels. These columns are used to specify the 
subroutine which will perform the input/output operations for a 
file assigned to a SPECIAL device or the label processing. The 
subroutine name entered in columns 54-59 can be from one to six 
characters long, and must be a valid RPG 11 name. 


CHAPTER 4. FILE DESCRIPTION SPECIFICATIONS 


4-17 



4.46 Columns 60-62 (Extension) 

Use these columns on a continuation card with the 'EXTDRV' 
entry in columns 54-59 to specify the extension to be used for a 
defined disk file, 

4.47 Columns 63-65 (Drive) 

Use these columns to specify the drive for a defined disk 
file. Either entry can be specified* or left blank* in which case 
'/TXT' is assumed for the extension* and 'sDRO' is assumed for the 
drive. Do not specify the initial '/' on the extension* or the 
's' on the drive. See the DOS manuals for further details, 

t 

4.48 Columns 60-65 (Number of Sectors) 

Use these columns on a continuation card with the 'MAXSEC' 
entry.in columns 54-59 to specify the LRN limit to be used for any 
disk file which may be created by the object program. This entry 
is needed only if you wish to limit dynamic file expansion to less 
than 9000 sectors, 

4.49 Column 66 (File Addition) 

Entry Explanation 

A New records are to be added to the file. 

Column 66 must contain A when new records are to be 
added to an existing consecutive or indexed disk file. 

Records added to a consecutive file are added to the end of the 
file. To add records to a sequential file* the file must be an 
output file (0 in column 15 of the File Description), 

Records added to an indexed file are added to the end of the file 
and the index used for the operation is updated to refect the 
addition. New records may be added in any order and will be 
indexed into the proper sequence. To add records to an indexed 
file* the file must be an output or update file (0 or U in column 
15 of the File Description), 

If an indexed file has more than one index (indexed on more than 
one key using the INDEX utility) the new records can not be 
accessed using the other indices until the other indices have been 
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updated using the INDEX utility! (See Appendix A), 

Column 66 should be blank for direct files 

4.50 Columns 67-70 

These columns are ignored, 

4.51 Columns 7 1-72 

Entry Explanation 

U1-U8 The file is conditioned by the specified external 

indicator. 

Blank The file is not conditioned by an external 

indicator. 

Columns 71-72 apply to primary and secondary- input 
(excluding table input files)* update* and output files. If an 
output tile is conditioned by an external indicator which is off* 
records will not be written on that file. Any calculation 
operation which should not be done when the file is not in use 
should also be conditioned by the same indicator. when the 
indicator is off* the file is treated as though the end of file 
had been reached* that is* no records can be read from or written 
into the file. 

4.52 U1-U8 (External Indicators) 

Indicators U1-U8 are external indicators. This means they 
are set during start-up. Their setting cannot be changed during 
processing. Thus* the program has no control over them. 

You may Use these indicators as file conditioning indicators. They 
tell whether or not a certain file is to be used for a job. For 
example* you may have a job which one time requires the use of two 
output (or input) files and another time the use of only one. 
Instead of writing two different programs (one using one file* the 
other two)* you can condition a file (in the File Description 
Specifications) by an external indicator. when the indicator is 
on* the file is used* when it is off* the file is not used. 

In addition to using these indicators as file conditioning 
indicators* you use them; 

1. To condition calculation operations. 
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2. To condition output operations. 

3. As field record relation Indicators (columns 63-64 of Input 
Specifications Sheet). 

4.53 Columns 73-74 

Columns 73-74 are not used. 

4.54 Columns 75-80 (Program Identification) 

See Chapter 2. 
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Extension soecifications are needed to describe the record 
address files# tables# and arrays you may use in your job. Enter 
these specifications on the Extension Sheet. 

Pre-execution time tables and arrays are described in columns 
11-45. Compile time tables and arrays are described in columns 
19-45. If an alternation table or array is to be specified with 
another table or array# it is described in columns 46-57 of the 
same line as the first. 

Record address files reauire entries on the Extension Sheet in 
columns 11-26, 

5.1 Columns 1-2 (paae) and 3-5 (Line) 

See Chapter 2. 

5.2 Column 6 (Form Type) 

An E must appear in column 6, 

5.3 Columns 7-10 

Columns 7-10 are not used. 

5.4 Columns 11-18 (F rom Filename) 

Exp 1anation 

The name of the record address file 
defined on the File Description 
Specification Sheet. 

Table or array file loaded at 
ore-execution time. 

1. Table or array loaded at compilation time 
if an entry appears in Number of Entries 
per Record (columns 33-35). 

2. Array loaded at execution time (loaded via 


Entry 

Record 
Address 
Fi1ename 

Table 
or Array 
Fi1ename 

Blank 
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input pr calculations specifications) If 
there Is no entry in Number of Entries per 
Record (columns 33-35). 


Columns 11*18 are used to name a table, 
file# array file# or record address file. Filenames must begin In 
column 11, 

Leave columns 11-18 blank for comolle time tables pr arrays# or 
for arrays Ipaded via input or calculations soec1f1 cations 
(execution time array). These columns must contain the table or 
array filename of every Dre-execut1 on time table or array used In 
your orooram. 

5.5 Columns 19-26 (To Filename) 


Ent rv 

Name of 
an inout 
or update 
file 

Name of 
ah out¬ 
put file 


ExdI anat i on 

The f11e processed via the recprd 
address file name under From Filename 


The output file on which a table or array 
is to be written at end of Job. 


Columns 19-26 define the relationship between 
fjle named in these columns and a file named in columns 11-18. 
Filenames must detain in column 19. 


If a record address file is named under From^FI lename# jcolupns 
11-18# the name of the primary or secondary fjle that contains the 
data records to be processed must be entered in To Filename# 
columns 19-26. 


If vou wish,a table pr array to be written#,use columns 19-£b to 
enter the filename of the output file vou will usp to do.this. 
This putput file my st have been previously named in the file 
description specifications. Execution time arrays cannot be, 
written at end of Job. Leave columns 19-26 blank for execution 
time arrays or if you do not want the table or array written. 

If a table or array Is to be written# it is automatically written 
at the end of the Job after all other records have been written. 
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Since the table or array will be written in the same format in 
which it was entered# you may want to rearranae the cutout table 
or array through outout format soecifications. You may format 
table or array outout by usina exception lines to write out one 
item at a time (see Ooeration Codes# Exception in Chapter 8). 
Tables or arrays will be written under RPG II control only after 
all records have been processed (Last Record indicator is on), 
Note: If a table or array is to be written to a printer file at 
the end of a lob# the last Outout-Format specification should be a 
space or skip to the line at which table or array output should 
beqin. 

5.6 Columns 27-32 (Table or Array Name) 

Entry Exp 1anation 

Table or Name of a table or array used in the 

Array oroaram. 

Use columns 27-32 to name your table or array. 
No two tables or arrays mav have the same name. The name can be 
from one to six characters Iona and must beain in column 27# and 
must be a valid RPG II name. If alternatina tables or arrays are 
being described# this must name the table or array whose entry is 
first on the input record. 

5.7 Table Name 

Every table used in vour proaram must be qiven a name from 
three to six characters lonq beginninq with the letters TAB. Any 
name in these columns which does not beoin with TAB is considered 
an array name. This table name is used throughout the proaram. 
However# different results can be obtained depending upon how the 
table name is used. Factor 2 on the Calculation Sheet can contain 
the name of a table to be searched and the result field can 
contain the name of another table from which an associated 
function is to be obtained. when the table name is used in Factor 
2 or Result Field (on the Calculation Sheet) with the LOKUP 
operation# it refers to the entire table, when the table n$me is 
used with any other operation code# it refers to the table item 
last selected from the table bv a LOKUP operation. If the table 
name is used before any successful 1ook-ucs are performed# the 
first table item is referenced. See Operation Codes# LOKUP# in 
Chapter 8 for more information. 

Tables are processed in the same order as they are specified on 
the Extension Sheet. Therefore# if you have more than one table# 
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remember the tables are to be loaded In the same order as they 
aooear on the sheet. 

Tables cannot be used with an index. 

5.8 Array Name 

Every array used In vour orooram must be given a name from 
one to six characters Iona. An array name cannot begin with the 
letters TAB. This array name is.used throughout $he program. 
Different results are obtained if the array name is used wi$h an 
index or without an index.. When used with an Index# a particular 
element of the array is referenced. An array name used unindexed 
refers to the whole array. 

An index is a numeric field or literal with *ero decimal 
positions. When used to.select an array element# the value of the 
index must not be neoat1ve# zero# or greater than the number of 
elements In the array. An indexed array reference Is written esi 
array-name#index (note that the name and jndex ar$ separated bv a 
comma).The length of an array name is limited bV its use. In 
input# output and the result field of calculations# the array 
element.i? limited to six positions? in factor 1 and factor 2# to 
ten positions. 

On input or output an entire array may be read or written to a 
single field or thf array may be processed element by element. An 
indexed reference is treated like a normal field during 
calculation. An unindexed reference refers to the entire array. 

An entire array may not be used with? COMP# DSPLY# TE8TZ# TESTB# 
BITON# or 8IT0F. Otherwise the following rules eoolv! 

1. When all operands are arrays# the operation is performed 
element bv element until the shortest array is processed. 

2. When one operand and the resujt field are arrayf# and the 
other operand is a field gr literal# the operation is 
repetitively performed using the same field or literal. 

3. Except for XFOOT and LOKUP# neither operand can be an arrav 
name unless the result field is an array name# and resulting 
indicators may not be used. 
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5.9 Columns 33-35 (Number of Entries per Record) 


Entry Exolanation 

I- 999 Number of table or array entries found in each table 

or array inout record. 

Indicate in columns 33-35 the exact number of table 
entries in each table or array inout record. The number entered 
must end in column 35. Every table or array input record except 
the la9t must contain the same number of entries as indicated in 
columns 33-35. The last record mav contain fewer entries than 
indicated# but never more, when two related tables are described# 
each table inout record must contain the corresoonoina items from 
each table written in alternatina form. These table items are 
considered as one entry. Correspondina items from related tables 
must be on the same record. If there is room# comments mav be, 
entered on table inout records in columns followina table entries. 

When loadina an array the followina must be considered! 

1. To load a Dre-execution time array# the array filename must be 
entered in columns 11-18 and an entry must be made in Number 
of Entries per Record (columns 33-35). 

2. To load an array at comoile time# the filename entry (columns 

II- 18) must be blank# but an entry must be made in Number of 
Entries oer Record (columns 33-35). 

3. To load an execution time array (via the inout and/or 
calculation specifications)» the From Filename (columns 11-18) 
and the Number of Entries oer Record (columns 33-35) must be 
blank, 

5,10 Columns 36-39 (Number of Entries/Table) 

Ent rv ExdI anation 

1-9999 Maximum number of table or array entries. 

Use columns 36-39 to indicate the maximum number of table items 
which can be contained in the table named in columns 27-32# or the 
maximum number of array items which can be contained in the array 
named in columns 27-32. This number mav apply to one table or to 
two alternatina tables. If alternatina tables are described# 
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correspond*no table items are considered one entry. Anv number 
entered in these columns must end In column 39. 

If your table or array is full* this entry gives the exact number 
of item? in it. However# if the table or array is not full# the 
entry aives the number of items that can be put into it. A table 
or array that is not full is known as a short table or array. 

Since the number of items for two related tfbles or arrays myst be 
the same# the entry in these columns also dives the number of 
items in a second table or array (columns 46*51). 

5.11 Columns 40*42 (Length of Entry) 

Entry Explanation 

1-256 Length of a table or array entry. 

Use columns 40-42 to aive the length of each entry in the table or 
array named in columns 27-32. The number entered must end in 
column 42. 

All table items must have the same number of characters. It is 
almost impossible# however# for every item to,be the same length. 
Therefore# add zeros or blanks to the front of numeric.iterns to 
make them the same length and add blanks to alphanumeric iteme 9 
For alphanumeric items# blanks may be added either before or after 
the item. 

If two related tables or arrays are described on one Extension 
Sheet# the entry in columns 40-42 applies to the table whose item 
appears first on the record. 

5.12 Column 43 (Packed or Binary Field) 

Ent ry Explanation 

Blank Data for table or array,is in JBM-comoatible numeric 

fgrmat.or is alphanumeric. This is used for 
execution time arrays. 

D Data for table or array is in Databus-comoatib1e 

format• 

i For a complete discussion of data reoresentation# 

see Column 43# Packed or Binary Field in Chapter 7. 
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5.13 Column 44 (Decimal Positions) 


Entry 

Explanation 




Blank 

Alphanumeric table or 

array. 



O 

I 

>o 

Number of positions to 
numeric table or array 

the riaht of 
items. 

the 

decimal in 


Column 44 must always 

have an ent rv 

for 

a numeric 


table or array. If the items in a numeric table or array have no 
decimal positions# enter a 0. 

If two alternatina tables or arrays are described in one file» the 
specification in this column applies to the table containina the 
item which appears first on the record. 

5.14 Column 45 (Seauence) 

Ent rv Exolanation 

Blank No particular order. 

A Ascendinq order. 

D Descendino order. 

Use column 45 to describe the seauence (ascendinq or descendina) 
of the data in a table or array. Execution time arrays are no^ 
checked for sequence# but column 45 must contain an entry if hiah 
or low LOKUP is to be used. 

When an entry is made in column 45# the table or array is checked 
for the specified sequence. If a ore-execution time table or 
array is out of seauence# an error occurs and the program halts 
immediately. The orooram can be restarted from the point where it 
halted if you do not want to correct the out-of-seauence 
condition# otherwise orooram execution must be restarted from the 
beoinnina. 

Ascendina order means that the table or array items are entered 
startina with the lowest data item (accordina to the collating 
sequence) and oroceedina to the hiqhest. Descendina order means 
that the table or array items are entered startina with the 
hiqhest data item and oroceedina to the lowest. 
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If alternating tables or arrays are described In one fflf# the 
entry in column 45 applies to the table or array containing the 
Item which appears first on the record. 

When you are searching a table or array for an itein (LQKUP) and 
wish to know If the Item is high or low compared wjth the search 
word# vpur table or array must be In either ascending or 
descending order. See Operation Codes# lookup in Chapter.8,for 
more information. When.a specific sequence has been specified# 

RPG II checks the data in the $ab1e or array to see if It really 
js In that sequence. In.checking for sequence# an egua) condition 
Is considered valid. This allows you to oad the beginning of the 
table with zeros or blanks# pr to oad the end of the table with 
9*a (assuming EBCDIC# ascending sequence). 

5.15 Columns 46-57 

Use columns 46-57 only when describing a second table or 
array which is entered In alternating format with the fableor 
array named in columns 27-32. All fields In this section have the 
same significance and.require the same entries as the fields with 
corresponding titles in columns 27-45. An alternating array 
cannot be described with an execution time array.. See the 
previous discussion on those columns for information about correct 
specif1 cations. 

5.16 Columns 58-74 (Comments) 

Enter anv information you wish in columns 58-74, The 
comments vou use should .he!p you understand or remember what you 
are doing in each soecififcation line. Comments are not . „ 

instructions to the RPG II program; they serve only as a means of 
documenting your program. 

5.17 Columns 75-80 (Program Identification) 

See Chapter 2, 
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CHAPTER 6. LINE COUNTER SPECIFICATIONS 


Line counter specifications should be used for the printer 
file (except the kevboard-disolav) in vour oroaram. Line counter 
soecifications indicate at what,line overflow occurs and the 
lenath of the form used in a printer. Both of these entries must 
be specified on the Line Counter Sheet (Fiaure 71). 

6.1 Columns 1-2 (Paae) and Columns 3-5 (Line) 

See Chapter 2. 

6.2 Column 6 (Form Tvoe) 

An L must appear in column 6. 

6.3 Columns 7-14 (Filename) 

Use columns 7-14 to identify the output file to be written on 
the printer. Filename must beain in column 7. 

Anv filename entered in these columns must be previously defined 
on the File Description Sheet. The output device assianed to the 
file on the File Description Sheet must be a printer. 

6.4 Columns 15-17 (Lines per Paae) 

Entry Explanation 

1-112 Number of orintina lines available. 

Columns 15-17 specify the exact number of lines available on the 

form or oaae to be used. The entry must end in column 17. 

Leadina zeros mav be omitted. 

6.5 Columns 18-19 (Form Lenath) 

Entry Explanation 

FL Form lenath 

Columns 18-19 must contain the entry FL. This entry indicates 
that the orecedina entry (columns 15-17) is the form lenath. 
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6.6 Columns 20-22 (Line Number of Overflow Line) 

Entry Explanation 

1-112 A line number from 1-112 is the overflow line. 

Columns 20-22 specify the line number that is the 
overflow line. The entry must end in column 22. Leading leros 
may be omitted. 

When the destination line of a space# skip# or print operation is 
a line beyond the overf1ow 1ine,you have specified (byt not beyond 
the form length)# the overflow indicator turns on to indicate that 
the end of,the oaae is near. When the overflow indicator is on# 
the following occur before forms advance to the next pages 

1. Detail lines are printed (if this part of the program cycle 
has not already been completed). 

2. Total lines are printed. 

3. Total lines conditioned bv the overflow indicator are printed. 

Because all these lines are,printed on the page after the 
overflow line# you have to specify the overflow line high enough 
on the oaqe to allow all these lines to print. Ypu know the data 
you will be printing out after the overflow line,is reached. 

Thus# vou can ludoe what line should be the overflow line on this 
basis. 

6.7 Columns 23-24 (Overflow Line) 

Ent rv Explanation 

OL Overf1ow 1ine 

Columns 23-24 must contain the entry OL. This entry indicates 
that the preceding entry (column 20-22) is the overf1ow line. 

6.8 Columns 25-74 

Columns 25-74 are not used. 
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6.9 Columns 75-80 (Program Identification) 


See Chapter 2. 
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Figure 6-1. Example of Line Counter Specification. 
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CHAPTER 7. INPUT SPECIFICATIONS 


Inout specif1 cations describe the data files. records; and 
fields of the records to be used bv the oroaram. These 
specifications mav be divided into two cateaories: 

1. File and record tvpe identification (columns 7-42). These 
specifications describe the incut record and its relationship 
to other records in the file. 

2. Field description entries (columns 43-74). These 
specifications describe the fields in the records. 

The specifications are written on the Input Sheet. The field 
description entries must start at least one line lower than the 
file and record type identification entries. 

7.1 Columns 1-2 (Paae) and 3-S (Line) 

See Chapter 2. 

7.2 Column 6 (Form Tvoe) 

An I must appear in column 6. 

7.3 Columns 7-14 (Filename) 

Columns 7-14 identify the input or update file beinq 
described. The filename must beoin in column 7 and conform to RPG 
II naming specifications. U9e the same filename aiven in the file 
description specifications. The name of every incut or update 
file (except table input files) described in the file description 
specifications must be entered at least once on this sheet. The 
filename must appear on the first line that contains information 
concernino the records in that file. If the filename is omitted; 
the last filename entered is assumed to be the file being 
described. All records and fields for one file must be completely 
described before another file can be described. 
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7.4 Columns 15*16 (Seauence) 

Entry Exclamation 

Anv two , No check for special seauence. 

Alphabetic 

characters 

Columns 15*16 mav contain a numeric,entry,which assigns a special 
sequence to different record types in a file. 

If different types of records do not need to be,in any special 
order# use two alphabetic characters. Alphabetic characters must 
be used for chained files and look ahead records. Within one , 
file# record tvoes havina alphabetic and numeric seauence entries 
can be specified for the same file# but all alphabetic entries 
must be before the numeric entries. 

Use columns 15*16 Jo assiqn seauence numbers to different types of 
records within a file. A Job may reauire that one record type 
(identified by a record identification code) must appear before 
another record tvoe within a sequenced qrouo. For example# a name 
record^may be needed before an address record. A record 
identification code must be provided for each type of record and 
the record types must be numbered in the order that they should 
appear. The program will check this order as the records are 
read. The first record tvoe must have.the lowest seauence number 
(01)#.the next record type should be aiven a hiaher number# etc. 
Gaps in seauence numbers are allowed# but the numbers used must be 
kept in ascendina order. The first seauence number must _be 01. 
Numeric seauence numbers only ensure that all records of record 
type 01 precede all records of record type 02# etc.# in anv 
sequenced qrouo. The seauence numbers do not ensure that records 
within a record type are in any certain order. Numeric seauence 
numbers have no relationship with control levels# nor do they 
provide for seauence checking of data in fields of a record, A 
record tvoe out of sequence causes the proaram to stoo. The 
oroqram mav be restarted# but.the record that causes,the halt is 
bypassed and the next record is read from the same file. 

Records in an AND or,OR line cannot have a seauence entry in these 
columns. The entry in these columns from the previous line also 
applies to the card in the OR line. 
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7.5 Column 17 (Number) 


Exolanat1 on 

Record tvoes are not beina seauence checked (columns 
15-16 have alphabetic entries). 

Onlv one record of this tvoe is present in the 
seauenced aroup. 

line or more records of this tvoe mav be present in 
the seauenced arouD. 

Use column 17 onlv if seauence checkina is to be 
done (columns 15-16 contain numbers). Often, when seauence 
checkina. there mav be more than one record of a particular type 
within the seauenced arouo. thus vou must indicate bv an entry in 
column 17 that a certain number of records of one type may be 
found in the seauence arouo. 

AND or OR lines (columns 14-16 have the letters AND or OR) should 
not have an entry in this column. It is assumed that the nymber 
of records of this type to be found in the seauenced aroup is the 
same as the number entered in column 17 of the previous line. 

(See Columns 21-41 in this chapter for more information on OR 
1ines ). 

7.6 Column 18 (Option) 

Ent rv Explanation 

Blank Record type must be present (if seauence checkina is 

soecified), 

0 Option. Record tvoe may or mav not be present. 

Column 18 is used when record tvoes are beina 
seauence checked. A blank entrv specifies that a record of this 
record type must be present in each seauenced aroup. 

The 0 entrv specifies that a record of this record type mav or mav 
not be present in each seauenced arouo. If all record tvoes are 
optional, no seauence errors will be found. 

AND or OR lines should not have an entrv in this column. The 


Entrv 

Blank 

1 

N 
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entry in this column on the Dreyious line also apoljes to this 
line. CSee Column® 21-41 in this chapter for more information on 
AND lines? see Columns 53-56 for more information on OR lines). 


Columns 

19-20 (Record Identifying Indicator) 


Entry 

Exolanation 


01-99 

Record identifvina indicator. 


L 1-1.9 

Control level indicator# used for a 
identifying indicator when a record 
a control field sianals the start of 
qroup. 

record 

type rather than 
a new control 

LR 

Last record indicator. 


H1-H9 

Halt indicator# used forj record identifying 
indicator when checking for a record type that 
causes an error condition. 

** 

Look-ahead fields. 



Columns 19-20 may be used for two purposes* 

1. Soecifvina record identifvina indicators. 

2. Indicatina look-ahead fields. 

7.8 Record Identifvina Indicator 

Use columns 19-20 to assian an indicator to each record type. 
When vou have different types of records within a file# vou_often 
want to do different operations for each record tyoe. Therefore# 
vou must have some wav of knowina which tvoe of record has Just 
been read. To do this# vou assion different record identifvina 
indicators to each record tyoe.. Whenever a record tvpp^i? 
selected t 9 be processed next# its corresoondino identifvina 
indicator is turned on. (All other record identifvina,indicators 
are off at this time# unless chained files or demand files are 
processed# when several may be on at the same time). This 
indicator si anals throuahout the rest of the oroaram^cyc1e which 
record tvoe has lust been selected. A record identifvina 
indicator need not be assianed if you are not concerned about 
different record tvoes. 
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Because the record identifvina indicator is on for the rest of the 
Droqram cycle# vou may use it to condition calculation ©Derations 
(see Columns 9-17 in Chapter 8) and outDut operations (see Columns 
23-31 in Chapter 9). 

Record identifvina indicators do not have to be assianed in any 
order. 

When a control level indicator used as a record identifvina 
indicator turns on to reflect the type of record read# only that 
one control level indicator turns on. All lower level indicators 
remain off. 

The same indicator may be assiqned to two or more different record 
types provided the same operations are to be performed on these 
tvoes.. This can be done bv usina the OR relationship (see Columns 
21-41 in this chapter). 

No record identifvina indicator may be specified in the AND line 
of an AND relationship. Record identifvina indicators for OR 
lines may be specified for every record type in the OR 
relationship that requires special processina. (See Columns 21-41 
in this chapter for information on AND lines. See Columns 53-58 in 
this chapter for information on OR lines). 

7.9 Look Ahead Fields 

Use asterisks in columns 19-20 to indicate that fields named 
in columns 53-58 on the fol1owinq specifications lines are 
look-ahead fields. A look-ahead field allows you to look at 
information in a field on the next record that is available for 
processina in any input file. In update files# the look-ahead 
field is for the record currently in process. 

Two of the uses for look-ahead fields are: 

1. Determininq when the last card of a control aroup is beina 
processed. 

2. Extendinq the RPG II matchina record capability. 

Look-ahead fields can be used with input and update files. 

They cannot be specified for chained or demand files. You can 
describe one set of look-ahead fields per file? the description 
applies to all records in the file# reqardless of their type. 

(The specifications for aescribina the fields are aiven later). 
Look-ahead fields cannot be altered in the Droqram (they cannot be 
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used as a result field or blanked after). 

If you wish to use Information both befpre and ffter the record is 
selected for orocessinq# you must describe the field twice) once 
as a look-ahead field and once as a normal field. 

For update files#,the look-ahead fields apply to the^next record 
in the file only if the current record was not read from that 
file. Therefore# when you are readlnq from only one file and the 
file is an update file# look-ahead fields always apply to the 
current record. 
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Flqure 7-1. Example of look-ahead specification. 

7.10 Columns 21-41 (Record Identification Codes) 

Use columns 21-41 to describe the information that Identifies 
a record type. 


When there are many record types in one file# you often want to 
perform different operations for each tvoe. Therefore# you must 
identify each type by olvinq each a special code consistinq of a 
combination of characters in certain positions in the record. 

This code must be described in columns 21-41 so that when.a record 
is read the record type can be determined bv these specifications. 
The first record identifvinq character should be identified In 
columns 21-27# the second in columns 28-34# and so forth. 
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when more than one record tVDe is used in a file* only one record 
tyoe will be selected for orocessina in each cycle. The record 
identifvina indicator for that record tvoe will be turned on at 
the time of selection. If a data record meets the requirements of 
more than one of the record tvoes, it will belona to the first 
record tvoe for which it aualifies. rthen all records are to be 
Drocessed alike reaardless of their tvoe, or if there is only one 
tvoe* leave columns 21-41 blank. 


Position 

Entry Explanation 

Blank No record identificaton code is needed. 

1-4096 Record position of the record identification code. 

Use columns 21-24, 28-31, and 35-38 to aive the 
location in the record of every character in the identification 
code. Entries in these columns must end in columns 24, 31, and 38 
respectively. Leadina zeros can be omitted. 

7.11 Not 

Entry Explanation 

Blank Record ID code is present in the specified column. 

N Record ID code is not present in the specified 

column. 

Use columns 25, 32, and 39 to indicate that a 
certain character should not be present in the specified position. 

7.12 C/Z/D 

Entry Explanation 

C Entire character. 

Z Zone portion of character. 

D Diait portion of character. 

Use columns 26, 33, and 40 to indicate what portion of a character 
is used as part of the record identifying code. Only the zone 
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©option# only the digit ©option# op both ©options (the who)e 
chapactep) may be used. When establishing record Identifying 
codes# rempmber that many chapacteps have eithep the same zone op 
the same digit ©option. 

7.13 Chapactep 

Use anv alphabetic chapactep# special chapactep# op digit in 
columns 27# 34# and 41 to identify the chapactep that was used In 
the pecopd to sepve as the code op ©apt of the code. 

Note* If none of the identifying codes you have specified Is 
found on a pecopd# ©rocessing stops. You may continue! however# 
the record that.causpd the halt is not Dpocessed# and the next 
pecopd In that file Is pead. 

7.14 AND Relationship 

A maximum,of thpee Identifying chpracter? may be describe# in 
one specification line. Thus# if the identification code consists 
of mope than three chapacteps# an AhJD line must be used. This 
means,that the fipst three identifying chapacteps are described In 
the first line. The additional identifying characters are 
described,in as many following lines as are needed. Write the 
word AND in columns 14-16 to indicate an AND line. 

You may,soecifv.AND or OR lines in anv combination to describe the 
record identifying code,. The record must.contain all the. 
characters indicated ae its record identification code before the 
record identifying indicator will turn on. 

7.15 OR Relationshio 

A ©articular record type mav be identified bv two.different 
codes,. If this is the case# OR lines must be u?ed to indicate 
that either one of the codes may be present to identify the 
record. Write the word OR in columns 14-15 to indicate an OR 
1 i ne. 

§even columns are set.aside for the descriot1pn,of one character 
in the record identification code. Each specification line 
contains three sets of seven colymns? columns 21-27# 28-34# and 
35-41. Each set consists of 4 fields? Position# Not# C/Z/D# and 
Character. Coding is the same for all three sets. 
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7.16 Column 42 


Column 42 is not used and should be left blank. 


INPUT SPECIFICATION 


_PROGRAMMER_ 

-NUMBER 

r option 

1 —RECORD INDICATOR 


DECIMAL FORMAT T DECIMAL POSITION" 


-CONTROL LEVEL 

—'MATCHING FIELDS 

I RECORD RELATION 



Fiqure 7-2, Example of record identification line in Incut 
Soecification. 

7.17 Column 43 (Packed or Binarv Field 
Entry ExdI anation 

Blank Field is in IBM-comoatible decimal format/ or is 

a 1ohameric. 

0 Field is in Dataooint-comoatib1e decimal format. 

Column 43 is used to indicate that a numeric field 
is in Datapoint-compatible format. Fields in this form will be 
converted to IBM-comoatible form. 

An array which was read in Dataooint format should have an entry 
in column 43 of the Input Sheet. In this case the From and To 
columns of the Incut Sheet should define the position the array 
occupies in the record. The arrav element lenqth is defined on 
the Extension Sheet. 


CHAPTER 7. INPUT SPECIFICATIONS 













7.18 IBM Compatible Format 

„In this.format# numeric inout data 1$ represented without an 
explicit decimal point and with the sion suoerimoosed over the 
right-moit dialt• This Is the form RPG normally processes. 

7.19 Dataoolnt Compatible Format 

,In this format,numeric input data must bf represented with an 
explicit decimal point unless the field contains no decimal 
oositions. In this case the decimal point mav or may not,be 
present. If the number is negative* the character preceding the 
first digit (or the decimal point) must be a minus sign. The 
internal field assianed is one byte less than the external field 
site with the same number of decimal oositions. 

DEFINED COMPATIBLE 


INPUT FIELD 

SIZE 

INTERNAL FIELD 

SIZE 

A. 1234. 

5.0 

1234 

4.0 

B. -123. 

5.0 

012L 

4.0 

C. -1234 

5.0 

123M 

4.0 

D. 01234 

5.0 

, 1234 

4.0 

E. 12345 

5.0 

i11egal 

4.0 

F. 12.34 

5.2 

1234 

4.2 

G. -1.23 

5.2 

012L 

4.2 


Example E shows thet since the field contains five digits (no 
decimal point or sian is present)* it cannot be converted to a 
four dialt internal number. An attempt to read in a field laraer 
than will fit will cause an error messaoe to be displayed. 

7.20 Columns 49-51 (Field Location) 

Entry Explanation 

Two Beqinninq (From) and end of a field 

numbers of a field(To). 

of 1-4 digits 

Use columns 44-51 (From and To) to describe the 
location on the recprd of each field containina input data named 
in columns 53-^8 (Field Name), Enter the number of the record 
position in which the field begins in columns 44-47, Enter the 
number of the record position in which the field ends in columns 
48-51. 
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A single position field is defined by outtina the same number in 
both From (columns 44-47) and To (columns 48-51). If a field of 
more than one oosition is defined* the number entered in From 
(columns 44-47) must be smaller than the number entered in To 
(columns 48-51). 

It is not necessary that the From and To columns specify a whole 
array. A portion of an array may be read in* however* the array 
will be read in from element 1 uo to as many elements as will fit 
in the numbers specified in the From and To columns. 

The maximum field lenqth for a numeric field is,15 positions. The 
maximum field lenath for an alphanumeric field is 256 characters. 

Entries in these columns must end in columns 47 and 51. Leading 
zeros mav be omitted. 

7.21 Column 53 (Decimal Position) 

Entry Explanation 

Blank Alphanumeric field. 

0-9 Number of decimal positions in numeric field. 

Use column 52 to indicate the number of positions to the right of 
the decimal in any numeric field named in columns 53-58. Column 52 
must always have an entry when the field named in columns 53-58 is 
numeric. If vou wish to define a field as numeric with no decimal 
positions* enter a 0. If a field is to be used in arithmetic 
operations or is to be edited* it must be numeric. The number of 
decimal positions must be less than or eaual to the field lenath. 

7.22 Columns 53-58 (Field Name) 

Ent ry Explanation 

1-6 Field name* array name* or array 

alphanumeric element. 

characters 

PAGE Special word. 

Use columns 53-58 to name a field* array* or array element found 
on the input records. If you are referencing an array* additional 
entries mav be needed in these columns. Use this name throughout 
the program whenever this field is referred to. Indicate the names 
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qf the fields for ell tvDes of records. However# name only the 
fields that are used. 

7.23 Field Names 

A,field name can be from one to si* characters lonq# must 
begin in column 53# and must be a valid RPG II name. 

All fields in.one type of record should have different names. If 
two or more fields of the same record tvDe have the same,name# 
only the field described last is used. However# field? from 
different record types may have the same name if the fields are 
the same length and contain the same type of data. This applies 
even if the fields are found in different locations in each record 
tvoe. 

Fields that are used in arithmetic operations or fields that are 
edited or zero suppressed (see Column 38 and Columns 45-70 in 
Chapter 9) must be defined as numeric. This means that column 52 
must have a decimal position entry. 

A separate line is used for each field description. 

7.24 Field Names in OR Relationship 

' *?*•#•* 

Even though two or.rpore record types contain identical fields 
you mus* describe each fie)d. Thjs may require duplicetqciodino. 
To eliminate duplicate codinq of identical fields from different 
record types# vou may use the OR re 1 ationship. 

An OR relationship means that the fields named may be found in 
either one of the record types. You may use OR lines when* 

1. Two or more record types have the same fields in the same 
positions. 

2. Two or more record.types have some fields which are identical 
and some fields which differ in location# lenath# or tvoe of 
data. 

Write the word OR in columns 14 and 15 to indicate an.OR line. 
If there are several AND or OR lines# field description lines 
start after the last record identification line. 
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7.25 Special Word PAGE 

If vour printed report has several paaes# you mav want to 
number the oaaes. The special word PAGE allows vou to indicate 
that paqe numberina is to be done. When vou use a PAGE entry on 
the Output-Format Sheet# oaae numberina automatically starts with 

1 . 

If you want to start at a page number other than 1# vou can enter 
that oaae number in a field of an incut record and name that field 
PAGE in columns 53-58. The number you enter in the PAGE field of 
the incut record should be one number less than the startina oaae 
number. If vour numberina should start with 24# enter a 23 in the 
PAGE field. The PAGE field can be of any lenath (up to 15 
positions)# but must have zero decimal positions specified. Anv 
entry vou make in the PAGE field should be riaht justified# such 
as 0023. 

Page numberina can be restarted durinq a program run bv entering a 
number in a oaae field of any input record. The PAGE field can be 
defined and used in calculations like anv other field. 

7.26 Columns 59-60 (Control Level) 

Entry Explanation 

L1-L9 Any control level indicator. 

Use columns 59-60 to assian control level indicators to input 
fields. (Control level indicators may not be associated with a 
chained or demand file). Control level indicators are used to 
specify the point at which specified operations are to be done. 

You mav assian a control level indicator to anv field. This field 
js then known as a control field and is checked for a change in 
information. When information in the control field changes# a 
control break occurs. All records havina the same information in 
the control field are known as a control arouo. 

whenever a record containing a control field is selected# the data 
in the control field is compared with data in the same control 
field from the previously selected record. When a control break 
occurs# the control level indicator turns on. Operations 
conditioned bv the control level indicators are then done. 
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7.27 L1-L9 (Control Level Indicators) 

Contro) level indicators are used to signal when a change in 
a contro) field has occurred. Because they turn on when the 
information in a.control field changes# they may be used to 
condition ©Derations (such as finding totals) that.are to be, 

Derformed.only when all records having the same information in the 
control field have been read. They may also be used to do total 
printing or to condition operations that are to be dpne.on pnlv 
the first record in a control arouD. Control level indicators 
always turn on after the first record of a control arouD is read. 

7.28 Columns 61*62 (Matching Fields) 

Entry Explanation 

MI-M9 Any matchina level. 

Use columns 61-62 to specify matching fields and seauence 
checking. 

An entry in columns 61-62 indicates: 

1. Matching fields and seguence checking w h « n vou have two or 
more input or update files with match fields. 

2. Only seouence checking when vou have lust one input or update 

file. 

7.29 Matching Fields 

Make an entry in columns 61-62 when you wish to compare 
records from two or more input or update files in order to 
determine when records match, Records can be matched by matching 
one field* many fie1ds# or entire records. You can indicate as 
many as nine matching fields CM1-M9), Whenever the contents of 
the match fields from records of the primary file are the same as 
the contents of the match fields from a secondary file# the 
matching record (MR) indicator turns on. M1-M9 are used only to 
identifv.fields bv which records are matched. The values M1-M9 
are not indicators* but do cause MR to turn on when a match 
occurs. Matching is allowed with primarv and secondary files 
only. 
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7.30 Columns 63-64 (Field Record Relations) 


ExpI anation 

Record identifying indicator assigned to a record 
type. 

Control level indicator previously used. 

Matching record indicator. 

External indicator previously set. 

Halt indicator previously used. 

Columns 63-64 have several uses which are discussed 

after these qeneral rules: 

1. All fields# including matching or control fields/ that have no 
field record relation specification/ should come before those 
that do. 

2. All fields related to one record type (that is/ havina the 
same Field Record Relation entry) should be entered as a arouo 
in specification lines following one another for more 
efficient use of core storage. These fields could/ however/ 
be entered in any order. 

3. All oortions of a so 1it contro1 field must be assigned the 
same field record relation indicator and must be entered as a 
group in soecification lines following one another. 

4. When used with match or control fields/ the field record 
relation indicator must match a record identifying indicator 
for this file. 

5. When any match value (M1-M9) is specified without field record 
relation/ all match values used must be specified once without 
field record relation. If all match fields are not common to 
all records/ a dummy match field should be used. 


Entry 

01-99 

L1-L9 

MR 

U1-U8 

H1-H9 
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7.31 Record Identifying Indicators (01-99) 

Columns 63-69 are commonly used when sevaral record tvoes 
have been specified in an OR relationship, Fields which have no 
field record relation indicator are associated with all the record 
tvoes in the OR relationship. This is fine when all record types 
have the same fields* byt if the record types in the OR 
relationship have some fields that are the same and some that are 
not the same* you do not want to associate every field with,all 
records. Therefore* there must be some wav of relating a field to 
a certain record. _To do this* dace in columns 63-69 the record 
tvoe on which the field is found. 

Control fields (indicated by entries in columns 59-60) and 
matching fields (indicated bv entries in columns 61-62) may also 
ba related to a particular record tvoe in an OR relationship bv a 
field record relation entry. Control fields or matching fields 
that are not related.to any particular record type in the OR 
relationship by the field record,relation indicator are used with 
all record tvoes in the OR relationship. 

When two control fields have the same control level indicator or 
two matching fields have the same matching ]evel entry* it is 
possible to assign a field record relation indicator tp Just one 
of the control fields or to lust one of the matching fields. In 
this case*.onlv the specif1 cation having the field record relation 
indicator is used when that indicator is on. If none of the field 
record relation indicators,are on for that control field or 
matching field* the specification without a field record relation 
indicator is used. Control fields and matching fields cannot have 
an L1-L9* U1-U8* or MR entry in columns 63-69. 

7.32 Control Level (L1-L9) and 

Matching Record (MR) Indicators 

Another situation for which you may use these columns is when you 
wish to accept and use data from,a particular field only when a 
certain condition (such as matching records or a control break) 
occurs. You indicate the conditions under which you accept data 
from a field bv indicator'L1-L9 or MR. Data from the field named 
in columns 53-58 is accented only when the indicator is on. 
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7.33 External Indicators (U1-U8) 


These columns mav also be used to condition a specification 
Dv an external indicator (Ul*Ub). The external indicator which is 
set prior to processina conditions whether a field is to be useo 
in the program. when the indicator is on# the field is read; when 
the indicator is off/ the field is not read. 

External indicators are primarily used when file conditioning is 
done Dv an entry in columns 71-72 in the file description 
specifications. However# thev mav also be used to condition when 
a specification should or should not be done even thouqh file 
conditionina is not specified. 

7.34 Halt Indicators (H1-H9) 


A halt indicator is used to relate a field to a record that 
is in an OR relationship and also has a halt indicator specified 
in columns 19-20. 


7.35 Columns 65-70 


Entry 

Explanation 

01-99 

Field indicator. 

O" 

r 

8 

X 

Halt indicator (when 
in the data), 


checking for an error condition 


Use field indicators 01-99 to test a field for a 
condition of either plus# minus# zero# or blank. The indicator 
specified turns on if the condition is true for the input record# 
it remains off or turns off if the condition is not true for the 
input record. These indicators may then be used to control 
certain calculation or output operations. 


The three conditions which mav be checked for are: 

1. Plus (columns 65-66). Any valid indicator entered here is 
turned on if the numeric field named in columns 53-58 is 
greater than zero. 

8. Minus (columns 67-68). Any valid indicator entered here is 
turned on if the numeric field in columns 53-58 is less than 
zero. 
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3, Zero or blank (colymns 69-70). Any valid Indicator entered 

here is turne^on if a numeric. Held named In columns 53*58 is 
all zeros or if any alphanumeric field is all blanks. 

A .numeric field which is all blanks will turn op an,indicator 
specified for all feros. However, if an alphanumeric.field is all 
zeros, the field will not turn on an indicator specified for all 
blanks. 

7.36 Halt Indicators 

Specify any ha]t indicator (H1-H9) in columns £5-70 ?o check 
for an error condition in vour data, For example, if a field 
should not be zero, specifv^a halt indicator to check for that 
zero condition. If a zero field is found, the halt indicator 
turns on and the job stoos after the record with the zero Held 
has been processed. 

Indicators H1-H9 cause the proaram to halt after the record which 
caused the indicator to turn on is completely processed. 

7.37 Columns 71-7A 

These columns are not used and should be left blank. 

7.38 Columns 75-80 (Prooram Identification) 

See Chapter 2. 
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Fioure 7-3. Example of field specifications on Incut 
Soecification. 
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CHAPTER 8. CALCULATION SPECIFICATIONS 


Calculation 
Derformed on the 
oerformed. Each 
three carts that 


specifications describe the calculations to be 
data and the order in which they are to be 
ca1cu1 ation specification can be divided into 
indicate: 


1. when the operation is to be performed (columns 7-17). The 
indicators entered in these columns determine under what 
conditions the operation specified is to be done. 

2. What kind of operation (column 28-32) is to be performed on 
the data in columns 18-27 and/or columns 33-42. Entries in 
these fields describe the kind of operation to be done. They 
also specify the data upon which the operation is to be 

per formed. 

3. What tests are to be made on the results of the operation 
(columns 54-59), The indicators entered here signal the 
result of the operation and may serve to condition other 
ooerations. 


8.1 Columns 1-2 (Paae) and 3-5 (Line) 

See Chapter 2. 

8.2 Column 6 (Form Type) 

A C must appear in column 6. 

8.3 Columns 7-8 (Control Level) 

Ent rv Explanation 

Blank Calculation operation is not part of a subroutine 

and may only be oerformed for detail calculations. 

L0» Calculation operation is done when the 

L1-L9 appropriate control break occurs or when an 

indicator is set on (L0 is always on). 


CHAPTER 8. CALCULATION SPECIFICATIONS 


8-1 



IR Calculation ©Deration Is done after.the last record 

has been processed or after the LR indicator has 
been set on by a SETON operation. 

SR Calculation operation is part of a subrout 

AN# OR Establishes AND and OR relationshios between lines 
of indicators. 

Jf columns 7*8 are blank# the operation specified on 
the same line is done every time a record is read# provided 
indicators in columns.9*17 of that line or AN/OR lines associated 
with that line allow it. 

Calculations must be specified in the following order* 

1. Detail (blank in columns 7*8), 

2. Total CL0 or LI-L9 in columns 7-8). 

3. Last record (LR in columns 7-8). LR calculations must appear 
after L1-L9 calculations. 

4. Subroutine (SR in columns 7*8). 

AN/OR lines can appear within any of the above calculations. 
8.4 Columns 9-17 (Indicators) 

Entry Explanation 

Blank Operation is performed for every record read if 

columns 7-8 are not LO or L1-L9 or SR. 

01-99 Resulting indicators used elsewhere in the program. 

L1-L9 Control level indicators previously assianed. 

LR Last record indicator. 

MR Matching record indicator. 

H1-H9 Halt indicators assigned elsewhere. 

U1-U8 External indicators previously set. 

QA-OG# Overflow indicator previously assigned. 
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ov 


Use columns 9-17 to assian indicators that control 
when an ooeration is or is not to be done. From one to three 
indicators may be used on a line. Bv usina AN or OK entries in 
columns 7-8/ many indicators can be used to condition one 
ooeration. 

There are three separate fields (9-11/ 12-14/ and 15-17) on each 
line/ one for each indicator. If the indicator must not be on in 
order to condition the operation/ place an N before the 
appropriate indicator (columns 9/ 12/ 15). 

All three indicators on one line are in an AND relationship with 
each other. The indicators on one line/ or indicators in qrouoed 
lines/ plus the control level indicator (if used in columns 7-8) 
must all be exactly as specified before the ooeration is done. 

8.5 Columns 18-27 and Columns 33-42 (Factor 1 & 2) 

Use columns 18-27 and 33-42 to name the fields or to dive the 
actual data (literals) on which an operation is to be performed. 
The entries which can be used are: 

1. The name of any field that has been defined. 

2. Any alphanumeric or numeric literal. 

3. Any subroutine/ table or array name/ or an array element. 

4. Any data field names (UDATE/ UMONTHz UDAY/ UYEAR). 

5. The special name/ PAGE, 

6. A label or a TAG/ BEGSR/ or ENDSR operation (Factor 1 only). 

/. A filename for a CHAIN/ DEBUG/ DSPLY/ READ/ or FORCE operation 
(Factor 2 onlv). 

An entry in Factor 1 must beain in column 181 an entry in 
Factor 2 must beain in column 33. 

The entries you use depend upon the ooeration you are describinq. 
Some operations need entries in both sets of columns/ some need 
entries in only one/ and some need no entries at all. 
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8.6 LIterals 


A literal Is the actual data used in an operation rather than 

the field name representing that data. A literal may be either 

alphanumeric or numeric. 

Consider the following rules when using an alphanumeric literal. 

1. Anv combination of characters may be used In an alphanumeric 
literal. Blanks are also valid. 

2. Alphanumeric literals must be enclosed bv apostrophes (')• 

3. The maximum length of an alphanumeric literal Is eight 
characters excluding the two enclosing apostrophes. 

4. An apostrophe required as part of a literal Is represented by 
two apostrophes. For example* the literal 'O'CLOCK' would be 
written as 'Q"CL0CK'. 

5. Alphanumeric literals may not be used for arithmetic 
ooerat1ons. 

Consider the following rules when using a numeric literal* 

1. A numeric 1jteral, consists of any combination of the digits 
0-9. A decimal point or sign may also be Included. 

2. The maximum total length of a literal is 10 characters 
including signs and decimal points. 

3. Blanks may not appear in the literal. 

4. The sign* if present* must be the leftmost character. An 
unsiqned literal is treated as a positive number. 

5. Numeric literals must not 

6. Numeric literals are used 
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8.7 Columns 28-32 (Operation) 


Use columns 28-32 to specify the kind of operation to be 
performed usinq Factor 1# Factor 2* and/or the Result Field and 
resultinq indicators. The operation code must beqin in column 28. 
A special set of operation codes have been defined which must oe 
used to indicate the tvoe of operation desired. Every operation 
code used reauires certain entries on the same specification line. 
For further information on the operations that can be performed* 
see Operation Codes in this chapter. 

The operations are performed in the order specified on the 
Calculation Sheet. 


All operations conditioned bv control level indicators in columns 
7-8 must follow those that are not conditioned bv control level 
indicators. All operations which are part of a subroutine (SR in 
column 7-8) must follow all other calculations in a proaram. 

8.8 Columns 43-48 (Result Field) 


Entry Explanation 

Result Field# table# array# or array element. 

Field 


Use columns 43-48 to name the field# table# array# or array 
element that will hold the result of the operation specified in 
columns 28-32. You may use the name of a field# table# array# or 
array element that has already been defined either on extension 
specifications# input specifications# or elsewhere in the 
calculation specifications. 

Otherwise vou may define a new field bv enterinq a field name that 
has not already been used. Any field you define here will be 
created at the time the proqram is compiled. The field you name 
may be either numeric or alphanumeric. A field used in arithmetic 
operations or numeric compare# or a field edited or zero - 
suppressed in output-format specifications must be numeric. 


The result field name must beain with an alphabetic character in 
column 43 and contain no blanks or special characters. 


If you are enterinq the name of a field that has not been defined 
elsewhere# columns 49-52 should also contain entries. If vou are 
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entering the name of a field that has been defined# entries in 
columns 49-52 are not necessary byt if specified must agree with 
the previous definition of that field. 

8,9 Columns 49-51 (Field Length) 

Entry Explanation 

Blank Alphanumeric or numeric field described elsewhere. 

1-256 Result Field length. 

Use columns 49-51 to aive the result field length 

for any result field. If you are naming a new field (one that has 
not been used before)* voy must consider the form yoyr data will 
be in and the length it will have after the operation has been 
performed. 

Whenever the field length is soecified for a result field# vou 
should be careful to make the result field long enough to hold the 
largest possible result. If the result field is too small# 
significant digits may be lost. For example# vou may wish to add 
field A (eight characters long# four decimal places) to field B 
(ten characters long# six decimal positions). Fields A and g.have 
four characters to the left of the decimal# but the result field# 
field C# must allow for more characters to the left of the 
decimal. 


9999.0000 Field A 

0001. mill Field B 

10000. mill Field C (result field) 

In this ease* field C was defined as 11 characters long with six 
decimal positions. Some of the numbers to the right of the 
decimal could be lost without changing the meaning of the result 
greatly. However# if field C were defined as 10 characters long 
with six decimal positions# a significant digit to the left of the 
decimal would be lost. Field C in this case would be 0000.111111 
and the meaning of the result has greatly changed. 

Numeric fields have a maximum length of 15 characters. 

Alphanumeric fields may be. up to 256 characters Igno, You may 
indicate the length of a field that has been previously described 
either in the Input Specifications or in Calculation 
Specifications. However# if you do so# vou must specify the same 
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Held lenqtn and number of decimal positions as was previously 
Piven to the field. 

If the result field contains the name of a table or array# an 
entry in these columns is optional. If used# it must aqree with 
the lenqth described in the Extension Specifications. 


8,10 Column 
Entry 
Blank 
0-9 


52 (Decimal Positions) 

Explanation 

Alphanumeric or numeric field described elsewhere. 
Number of decimal places in a numeric result field. 


Use column 52 to indicate the number of positions to 
the riqht of the decimal in a numeric result field. If the 
numeric result field contains no decimal positions# enter zero. 


This column must be left blank if the result field is 
alphanumeric. It may also be left blank if the result field is 
numeric but has been previously described in the Extension# Input# 
or Calculation Specifications. In this case# Field Lenqth 
(columns 49-51) must also be blank. 


The number of decimal positions must never be qreater than the 
lenqth of the field. The number may# however# be larqer or 
smaller than the number of decimal positions that actually result 
from an operation. If the number specified is smaller than the 
number that results from the operation# the riqhtmost diqits are 
dropped. 

8.11 Column 53 (Half Adjust) 


Entry Explanation 

Blank Do not half adjust. 

H Halfadjust. 

Use column 53 to indicate that the contents of the result field 

are to be half adjusted (rounded). In essence# half ad j us tino is 
done by addinq a 5 (-5 if the field is neoative) to the number at 
the riqht of the last decimal position specified for this field. 
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All decimal positions to the right of the position specified for 
that field are then drooped. 

Thp half adjust entry Is eljowed only with arithmetic operations. 
This entry,cannot be specified for a DIV operation followed by an 
MVR operation. 

8.12 Columns 54-59 (Resulting Indicators) 


Ent ry 

Explanat1 on 


01-99 

Any numeric indicator. 


H1-H9 

Any halt indicator. 


Ll-19 

Any control level indicator. 

LR 

Lost record, Indicator, 


OA-OG# 

OV 

Any oyerflow Indicator 
Description Sheet). 

(if spec 1f1ed on File 


Columns 54-59 are used 

for four different purposes: 


1. To test the value of the result field after an arithmetic 
ooeration. 

2. To check the outcome of a CHAIN# LQKUP# COMP# TE8TB# or TESTZ 
ooerat1 on. 

3. To specify which indicators to SETON or SETOF. 

4. To indicate end of file for the READ operation code. 


8.13 Test Results 

By entering an Indicator In columns 54-59# ypu specify,that 
the result field Is to be tested after the operation specified In 
columns 28-32 has been performed.. (Normallv* only indicetprs 
01-99 and HI-H9 are used for testing). The indicator specified i 
turned on only If the.result field satisfies the condition being 
tested.for. This Indicator may then be used to condition 
following calculations or output operations. If the same 
indicator Is used to test the result of more than one operation# 
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the operation last performed determines the settinq of the 
indicator. 

Notice that three fields (columns 54-55/ 56-57/ and 58-59) can be 
used for this purpose. Each field is used to test for different 
conditions: columns 54-55/ plus or high; columns 56-57/ minus or 
low; columns 58-59/ zero or eaual. You can test for more than one 
of the conditions. 

Columns 54-55 (Plus or Hiqh): Place an indicator in these columns 
when testing to find: 

1. If the Result Field in an arithmetic operation is positive. 

2. If Factor 1 is hiqher than Factor 2 in a compare operation, 

3. If Factor 2 is hiqher than Factor 1 in table or array lookup 
ooeration. 

4. The results of a CHAIN (not found)/ TESTB (all 0's)/ or TESTZ 
(C zone) operation. 

Columns 56-57 (Minus or Low): Place an indicator in these 
columns when testing the Result Field to find: 

1. If the Result Field in an arithmetic ooeration is negative. 

2. If Factor 1 is lower than Factor 2 in a compare operation. 

3. If Factor 2 is lower than Factor 1 in table or array lookup 

ooeration. 

4. The results of a TESTB (mixed)/ or TESTZ (D zone) ooeration. 

Columns 58-59 (Zero or Equal): Place an indicator in these 
columns when testing the Result Field to find: 

1. If the Result Field in an arithmetic operation is zero. 

2. If Factor 1 is equal to Factor 2 in a compare ooeration. 

3. If Factor 2 is equal to Factor 1 in a table or array lookup 

ooeration. 

4. The results of a READ (end of file)/ TESTB (all ones)/ or 
TESTZ (not C or D zone) operation. 
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8.14 Columns 60*74 (Comments) 

Enter In columns 60*74 any meaningful information you wish. 
The comments you use shou,l d. hel o you understand or remember what 
you are doing on each specification line. Comments are not 
instructions to the RPG II oroaram. They serve only as a means of 
documenting vour proaram. 

8.15 Columns 75-80 (Program Identification) 

See Chapter 2, 

8.16 Operation Codes 

You are able to perform many different types of operations on 
vour data using the RPG II language. Special codes have been set 
up which indicate the operation to be performed.. Usually these 
are Just abbreviations of the name of the operation. You must use 
these codes to specify the operation to be performed. 

Operations may be divided into nine categories? all codes in each 
category are explained in this section. 

8.17 Arithmetic Operations 

Arithmetic operations can be performed only gn numeric fields 
or literals. The result field must also be numeric. For 
arithmetic operations in which all three fields are used* 

1. Factor 1# Factor 2. and the Result Field may all be different 
fields. 

2. Factor 1 » Factor 2? and the Result Field may all be the same 

field. 

3. Factor 1 and Factor 2 may be the same field but different from 
the Result Field. 

4. Either Factor 1 or Factor 2 may be the same as the Result 
Field. 

The length of any field involved in an arithmetic operation 
cannot exceed 15 characters. If the result exceeds 15 characters, 
characters may be drooped from either or both ends depending on 
the location of the decimal point. The results of all operations 
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are siqned ( + * -). Any data placed in the result field replaces 
the data that was there previously. 


8.18 Add (ADD) 

Factor 2 is added to Factor 1. The sum is placed in the 
Result Field. Factor 1 and Factor 2 are not changed by the 
ooeration. 

8.19 Zero and Add (Z-ADD) 

Factor 2 is added to a field of zeros * and the sum is olaced 
in the Resu1t Field. 

8.20 Subtract (SU8) 


Factor 2 is subtracted from Factor 1. The difference is 
placed in the Result Field. Factor 1 ana Factor 2 are not changed 
by the operation. 


Notes Subtracting two fields which are the same is a method of 
settina the result field to zero. 

8.21 Zero and Subtract (Z-SUB) 

Factor 2 is subtracted from a field of zeros. The difference 
is placed in the Result Field. This actually places the neaative 
of Factor 2 in the Result Field. This operation can be used to 
change the sian of a field. Factor 1 is not used. 

8.22 Multiply (MULT) 

Factor 1 is multiplied bv Factor 2. The product is then 
placed in the Result Field. Factor 1 and Factor 2 are not 
chanaed. When you use (as a factor) a field which is described as 
the Result Field* you must be sure the Result Field is large 
enouoh to hold the product. 

8.23 Divide (DIV) 

Factor 1 (dividend) is divided by Factor 2 (divisor). The 
result (quotient) is placed in the Result Field. Factor 1 and 
Factor 2 are not chanqed. 

If Factor 1 is 0* the result of the divide operation will be 0. 
Factor 2 cannot be 0. If it is* the lob stoos immediately and a 
halt code is displayed. If processing is continued* the result 
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and remainder are set to zero. 

Any remainder,resulting from $he divide operation is lost unjess 
the move remainder,ooeration is specified as the next ooeratJon. 

If move remainder is the next operation* the result of the divide 
operation cannot be half adjusted (rounded). 

8.2A Move Remainder (MVR) 

This operation moves.the remainder from the previous divide 
operation to a separate field named under Rpsult Field. Factor 1 
and Factor 2.myst not be.used. This ooerat1 on.myst immediately 
follow the divide pperation and should be conditioned by the same 
indicators. The maximum lenqth of the remainder i? 15* inplydinq, 
decimal positions. The number of significant decimal positions is 
the qreater of: 

1. Tfre,number of,decimal positions in Factor 1 of the previous 
divide operation. 

2. The sum of the decimal positions in Factor 2 and the Result 
Field of the previous divide operation. 

The maximum whole nymber opsitions in the remainder is pqyal 
to the,whole number positions in Factor 2 of the previous divide 
operation. 

8,25 Sauare Root (SORT) 

This operation derives t,he souare root of The field named in 
Factor 2. The soyare root of Factor 2 is placed in the Result 
Field. Factor 1 is not used. 

Factor 2 and the Result Fiejd can be nymeric fields up to fifteen 
digits 1onq overall* includinq uo to nine decimal places. 

For every diqit left pf, t he decimal place in the Result Field* 
there should b« two digits left pf the decimal place in Faptor 2; 
for every digit right.of the decimal place in the Result Field* 
there should b® two digits right of the decimal place in Factor 2. 

A whole prrav can be used in a SORT operation if Factor 2 and. 
Result Field contain arrav names. In this case* the souare root 
of each element of the array named in Factor 2 will be placed in 
the corresoonding element of the array named in the Result Field. 

When using the SORT operation* remember: 
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1. The Result Field (root) is automatically ha 1f-adiusted. 

2. The Result Field lenath must be qreater than op eaual to the 
decimal oositions entry. 


3. Factor 2 cannot be a neaative number. A neaative number 
causes a halt. 

8.26 Crossfoot (XFOGT) 

This operation is used only on arrays with numeric elements. 
It adds all the elements of the array toaether and outs the sum 
into a separate field specified as the Result Field. Factor 1 is 
not used. Factor 2 contains the name of the array. You can 
half-adiust the total in the Result Field and use resultino 
indicators if vou wish. 

If the Result Field is an element of the same array used in Factor 
2 # the value of that element prior to the XFUOT operation is used 
in arrivina at a total. 

8.27 Move Operations 


Move operations move part or all of Factor 2 to the Result 
Field. Factor 2 remains unchanaed. Factor 1 is not used in anv 
move operations. It must always be blank. No resultina 
indicators may be used. Numeric fields fnav be chanaed to 
alphanumeric fields and alphanumeric fields may be chanaed to 
numeric fields by the move operations. To chanoe a numeric field 
to an alphanumeric field# place the name of the numeric field in 
Factor 2 and use an alphanumeric result field. To chanae an 
alphanumeric field to a numeric field# place the name of the 
alphanumeric field in Factor 2 and use a numeric result field. 


When move operations are specified to move data into numeric 
fields# decimal oositions are ianored. For example# if the data 
1.00 is moved into a numeric field with one decimal position# the 
result is 10.0. 


8.28 Move (MOVE) 

This ooeration causes characters from Factor 2 to be moved to 
the riahtmost oositions in the result field. Movina starts with 
the riahtmost character. 


If Factor 2 is lonaer than the Result 
characters of Factor 2 are not moved. 


Field# the excess leftmost 
If the Result Field is 
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longer than Factor 2* the characters to the left of the data Just 
moved in are unchanged. 

An alohanumeric, f ipi d or constant mav.b? changed into a numeric 
field. Whfn this is specified* the digit portion of each 
character is converted to.its corresoondino numeric character and 
then moved to the result field. Blanks are transferred as zeros. 
However* the zone portion of.the rightmost alphanumeric character 
is converted to a correspond*no sign and is moved to,the rightmost 
position of the.nuperic field where it becomes the sign of the, 
field. A numeric field may also be changed into an alphanumeric 
field bv moving it info an alphanumeric field. All digits are 
transferred. The digit and zone of the rightmost character are 
t ransferred. 
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ALPHA TO ALPHA 


FACTOR 2 
FACTOR 2 
FACTOR 2 

FACTOR 2 
FACTOR 2 
FACTOR 2 

FACTOR 2 
FACTOR 2 
FACTOR 2 

FACTOR 2 
FACTOR 2 
FACTOR 2 

Figure 8- 


< RESULT 
= RESULT 

> RESULT 

< RESULT 
= RESULT 

> RESULT 

< RESULT 
= RESULT 

> RESULT 

< RESULT 
= RESULT 

> RESULT 


FACTOR 2 


RESULT BEFORE MOVE 


A I B , 

C 

D 

F 

iA 

, H . 

1 , J 

1 

c , 

Dj 

\JL 

, G 

, H , 

li 

I A ,B 

__L 

c 

_L 

D ,E | 

Li 

G 

l 

, H , 

il 

NUMERIC 

TO NUI 

V1ERIC 




1|2, 

3, 

4 | 

Li 

,7 

8 

1 l 

9 i 0 | 

1 1 I 2 , 

3 ( 

U 

Li 

7 

8 , 

1 1 

AJ 

1 1|2, 

3, 

4,5 | 

Li 

, 7 

A, 

AJ 

ALPHA 

TC 

> NUME] 

RIC 




1 A,B. 

c, 

mJ 

La 

iA 

, 7 , 

8 , 9 | 


c, 

mJ 

La 

j_7 

A, 

aJ 

Im 

c 

D m| 

La 

J_ 

,8, 

Ai 

NUMERIC 

TO AL] 

PHA 




1 1,2, 

3 

_l 

u 

La 

iW 

, X , 

Y , Z I 

1 1 ,2, 

3, 

U 

|_w 

, X 

, Y , 

ll 

| 1, 2 t 

3 

4 sl 
_ l_J 

I w 

X 

J_ 

Y 

J_L 

ll 


RESULT AFTER MOVE 


F 

A 

A 

, c 

D 

A 

lA 

^c 

, D 


La 

lA 


1 E 



A lii. ?. 


3 4 


1,2 3 

_I_I_ 


2,3,4 


u 




1x1 


12 3 


2 3,4 

_I_!_ 




3 4 

_I_ 


12 3 

_I_I_ 


2 3 4 

-1_I_ 


1. Diagram of MOVE instruction. 
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0.29 Move Left (MOVED 

This operation cayses characters,from Factor 2 to.be moved to 
the leftmost position in the Result Field. Movina beains with the 
leftmost character. 

If Factor 2 is longer than the Result Field# the excess riahtmost 
Characters of Factor 2 are not moved. If the.Result Field is 
lonoer,than Factor 2# the characters to the.righ£ of the d«ta„Just 
moved in are unchanged. In this case the sian of a numeric field 
is not changed either. 

An alphanumeric field or constant mev be changed into a numerje 
field by moving it into a numeric field. When this is specified# 
the digit portion of each character is converted to its 
connesoonding numeric character and then moved into the result 
field. 

Blanks are transferred as zeros. If the rightmost character is 
moved# the lone is also converted and.used as the sign of the 
field. When the rightmost character is not transferred# the zone 
is# nevertheless# still transferred and used as the sian of the 
result field. 

A numeric field may also be changed into an alphanumeric field bv 
movina it into an alphanumeric field. All digits are transferred. 
Both digit and zone portions of the riahtmost character are 
transferred if that character is to be moved. 
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ALPHA TO ALPHA 


FACTOR 2 
FACTOR 2 
FACTOR 2 

FACTOR 2 
FACTOR 2 
FACTOR 2 

FACTOR 2 
FACTOR 2 
FACTOR 2 

FACTOR 2 
FACTOR 2 
FACTOR 2 

F i aure 8 


< RESULT 
= RESULT 

> RESULT 

< RESULT 
= RESULT 

> RESULT 

< RESULT 
= RESULT 

> RESULT 

< RESULT 
= RESULT 

> RESULT 


FACTOR 2 


A B CD 

_J_!_I_ 


A B C D 

—i_i_i_ 


A i B , C , D ,E 


RESULT BEFORE MOVE 


F . G , H . I , J 


F 


NUMERIC TO NUMERIC 


JL,AL 4 




1,2,3,4,5 


ALPHA TO NUMERIC 


A,B,C M 

-1-1_I_ 


A,B,C,M 


A,B,C D M 

__J_1_ i 1 


l, 2 , 3,4 


i,2,3,4,5 


NUMERIC TO ALPHA 


A 2,3 , 4 


V 


w 


w 


w 


X 


X 


H 


H 


9^ 


8 .9 


Y . Z 


RESULT AFTER MOVE 


A , 


^c_ 

,D ( J 

l A , 

, B 


D | 

La, 

lL 


bJ 


1,2,3 ,4,0 


.1,2 i.3 i 4 


i , 2 ,, 3,4 


1,2 ,3,4,0 
1,2 ,3,4 

AAjIlU 


1.2,3,M,Z 
1 1, 2 i 3 , M ] 
LL2_|3,,4] 


2 . Diaaram of MOVEL instruction. 
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8.30 Move Zone Operations 

These operations are used on)v to move the zone portion.of a 
character. There are four varieties of the move zone operation. 

Note: Generally# whenever the word hiqh is psed# the field 
involved must be alphanumeric: whenever low is used# the field 
involved mav be either alphanumeric or numeric. 

8.31 Move Hiqh to Hiah Zone (MHHZQ) 

This operation moves the zone from the leftmost position of 
Factor 2 to the leftmost position of the Result Field. Factor 2 
and the Result Field must be alphanumeric. 


FACTOR 2 
Z, n| Z,n|Z,N 


RESULT 

z n|z n|z,N I 

_j_L ~ i_J_l_I 

J 


Figure 8-3. Diagram of MHHZO instruction. 

8.32 Move Hiqh to Low Zone (MHIZO) 

This operation moves the.zone from the leftmost position of 
Factor 2 to the riqhtmpst position of the Result Field. Factor 2 
can be only alphanumeric. The Result Field mav be either 
alphanumeric or numeric. 


FACTOR 2 RESULT 

z.nIz.nIz.nI Iz.nIz.nIz.n 
L _... . _.. JT 


Figure 8-4. Diagram of MHLZO instruction. 


8-18 


RPG II SYSTEM 



8.33 Move Low to Low Zone (MLLZO) 

This ODeration moves the zone from the riahtmost Dosition of 
Factor 2 to the riahtmost position to the Result Field. Factor 2 
and the Result Field may be either alphanumeric or numeric. 


FACTOR 2 


RESULT 


Z , N Z , N Z N 
_1 1—114- T-l 


Z , N Z , N Z , N 

F ~~ 


Fiaure 8-5. Diaaram of MLLZO instruction. 

8.34 Move Low to Hiah Zone (MLHZO) 

This operation moves the zone from the riahtmost position of 
Factor 2 to the leftmost position of the Result Field. Factor 2 
can be numeric or alphanumeric* but the Result Field can only be 
a 1phanumeric . 


FACTOR 2 RESULT 

Z N I Z N I Z N I I Z N I Z N I Z N 
—i L_.i I i | I _ i L _ i __ l i 


Fiaure 8-b. Diaaram of MLFIZG instruction. 
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CALCULATION SPECIFICATIONS 

PROGRAM I ___.I,...,PROGRAMMER. . ._______ '’ATP. PArtP _ or _PAQ p R 



Figure 8-7. Examde of arithmetic ooerations. 
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8.35 Compare and Testina Operations 

These operations test fields for certain conditions. The 
result of the test is shown bv the resultina indicators assigned 
in columns 54-59, No fields are chanaea bv these operations, 

8.36 Compare (COMP) 

This operat ion causes Factor 1 to be compared with Factor 2. 
As a result of the compare* indicators are turned on as follows? 

Hiah Factor 1 is qreater than Factor 2. 

Low Factor 1 is less than Factor 2. 

Eaual Factor 1 eauals Factor 2. 

Factor 1 and Factor 2 must either be both alphanumeric or both 
numeric. 

The fields are automatically alianed before they are compared. If 
the fields are alphanumeric* they are alianed to their leftmost 
character. If one is shorter* the unused positions are filled 
with blanks. 

If the fields which are to be compared are numeric* they are 
a 1ianed accordina to the decimal point. Any missinq diaits are 
filled in with zeros. The maximum field lenath for numeric fields 
which are to be compared is 15 diaits. 
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NUMERIC COMPARE 




VALUE 

COMPARE VALUE 

FACTOR 

1 

123.45 

123.450 

FACTOR 

2 

42.763 

042.763 



ALPHANUMERIC 

COMPARE 

FACTOR 

1 

ABC 

ABC## 

FACTOR 

2 

VWXYZ 

VWXYZ 


Ficiure 8-8. oiaaram of COMP instruction. 

8.37 Test Zone (TESTZ) 

This operation tests the zone of the leftmost character itv 
the result field (see Character Structure under Columns 21-41 in 
Chanter 4). The Result Field must be alphanumeric since this 
ooeration can be done only on.alphanumeric characters. Resulting 
indicators are'used to determine the results of the test. The zone 
Dortion of characters & and A-I causes the dIus indicator^to turn 
on. The zone portion of the characters ) (bracket)#,- (minus)# 
and J-R causes the minus indicator to turn on. All other 
characters# when tested# cause the blank indicator to turn on. 
Factor 1 and Factor 2 are not used in this operation. 

8.38 Binary Field Operations 

Three operation podes# 8ITQN# BITQF# and TESTS# are provided 
to set and test individual bits. The individual bits can be used 
as switches in a oroaram. 

In binary field operations# the ooeration code# BITON# BITOF# or 
TESTB# must appear in columns 28-32. Factor 2 can contain* 

Bit number 0-7* One or more bits (maximum of eicjht) may be 
set on# set off# or tested oer operation. The bits are 
numbered from left to right and are enclosed in apostrophes. 
The order of specification of the bits is not restricted. For 
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example# to soecifv the first bit in a field# enter 'O' in 
Factor 2 (columns 33-35). To soecifv bits 0# 2# and 5# enter 
'025' in Factor 2 (columns 33-37). Bits not specified in 
Factor 2 are not chanaed. 

Field Name: The name of a one-DOS i t ion # alohanumeric field.or 
table or arrav element can be entered. In this case# the bits 
which are on in the field or arrav element are set on# set 
off# or tested in the Result Field# bits which are not on are 
not affected. 

Anv field named in Factor 2 or the Result Field must be a 
one-Dos iti on# alohanumeric field (no entries in the decimal 
Dositions columns on the Incut or Calculation Sheet). 

8.39 Set Bit On (BITON) 

This operation code causes bits identified in Factor 2 to 
turn on (set to one) in a field named as the Result Field. The 
operation code BITON must appear in columns 28-32. Conditionina 
indicators can be used in columns 7-17. Anv entry under Field 
Lenqth must be 1. See the orecedinq discussion in Binary Field 
Qperations. 

Factor 1# Decimal Positions# Half-adlust# and Resultino Indicators 
are not used with the BITUN operation. 


8.40 Set Bit Off (BITOF) 


This operation code causes bits identified in Factor 2 to 
turn off (set to zero) in a field named as the Result Field. 


The operation code BITOF must appear in columns 28-32. All other 
specifications are the same as those for the BITON operation. 


8.41 Test Bit (TESTB) 

This operation code causes bits identified in Factor 2 to be 
tested for an on or off condition in the field named as the.Result 
Field. The condition of the bits is known bv resultino indicators 
in columns 54-59. All other specifications are the same as those 
for BITON and BITOF. 


At least one resultino indicator must be used with the TESTB 
operation# as many as three can be named for one operation. Two 
indicators mav be the same for one TESTB operation# but not three. 
If Factor 2 contains bits which are all off# no resultino 
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indicators are turned on, A resulting indicator has the following 
meanings for these columns: 

Columns 54-55:. An indicator in these.columns is turned on if each 
bit specified in Factor 2 is off (0) in the Result Field, 

Columns 56-57: An indicator in these columns is turned on if t*o 
or moro bits were tested,and found to be of mixed status# that is# 
some bits on and other bits off. It is the programmer's 
responsibility to ensure,that the field.named in Factor 2 contains 
more than one bit which is on if an indicator appears in columns 
56-57. 

Columns 58-59: An indicator in these columns is turned on if each 
bit specified in Factor 2 is on (1) in the Result Field. 

8.42 Setting Indicators 

These operation codes are used.to turn indicators off or on. 
Any indicator to be turned on or off is specified in columns 
54-59. The headings in the Resulting Indicators Field (Plus or 
High# Minus or Low# Zero or Equal) have no meaning in these 
operations. When setting indicator# remember: 

1. The following indicators may not be turned on by the SETON 

operation: IP# MR# LQ» U1-U8. 

2. The following indicators may not be turned off by the SETOF 

operation: IP# MR# LQ# U1-U8. 

3. If the LR indicator is turned on bv a SETON operation which is 
conditioned with a control level indicator (columns 7-8 of the 
Calculation Sheet)# processina stops after all total output 
operations are finished, If it is turned on bv a SETON 
operation not so conditioned# processing stoos after the next 
total output operation is comoleted. 

4. If the halt indicators (H1-H9) are set on and not turned off 
before the detail output operations are complete# the system 
stoos. Processing may be continued after halting once for 
every halt indicator that is on. 

5. Setting on or setting off a control level indicator (L1-L9) 
does not automatically set on the lower control level 
indicators. 

6. Indicators L1-L9 and the record identifying indicators are 
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always turned off after detail output ooerations are 
completed* reaardless of the previous SETON or SE70F 
ooeration. 

7. Whenever a new record is read* record identifvina inaicators 
are set to reflect conditions on the new record. The settinq 
from anv previous SETON or SETOF ooeration does not aoDly 
then. 

8.43 Set On (SETON) 

This ooeration causes anv indicators in columns 54-59 to be 
turned on. 


8.44 Set Off (SETOF) 

This ooeration causes anv indicators in columns 54-59 to be 
turned off. 

8.45 Branchina Operations 


Operations are normally performed in the order that they 
appear on the Calculation Sheet. There may be times* however* 
when you do not want the operations performed in the order they 
are specified. For example* you may wish to: 


1. Skip several operations when certain conditions occur. 

2. Perform certain operations for several* but not all* record 
types. 


3. Perform several operations over and over aqain. 

8.46 Go To (GOTO) 

This ooeration allows you to skip instructions by soecifvina 
some other instruction to qo to (see TAG). You may branch to an 
earlier line or to a later specification line. However* you 
cannot skip from a calculation that is not conditioned by a 
control level indicator (columns 7-8) to one that is* or vice 
versa. Neither can you branch from a calculation within a 
subroutine to a calculation outside of that subroutine* or vice 
versa. 


Factor 2 must contain the name of the point to which you wish to 
ao. Factor 1 and the Result Field are not used in this ooeration. 
The GOTO operation may be conditioned by anv indicators. If it is 
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not conditioned# the ©Deration is always done. 

8.47 Tao (TAG) 

This 9 oeration code names the point to which you are 
branching in the GOTO operation. Factor 1 contains this label. 

The name must beain in column 18. The same label mav not be used 
for more than one TAG instruction. 

Factor 2 and the Result Field are not used* No indicators mav be 
entered in columns 9-17 for a TAG instruction.. Control level 
indicators mav be used# however# if branching is to occur at total 
time. 

8.48 Lookuo Operations 

Lookup operations are used when searching through a table or 
an arrav to find a special element. 

8.49 Lookup CLOKUP) 

_This operation code causes a search to be made for a 
particular item in a table or arrav. The ta^le or arrav is Factor 

2. Faptor 1 is the search word (data for which you wish to find a 
match in the table or arrav named). Factor 1# the search word# 

may be* 

1. An alphanumeric or numeric constant. 

2. A field name. 

3. An arrav element. 

4. A table name. 

Remember that when a table is named in Factor 1# it refers to the 
element of the table last selected in a LOKUP operation# not to 
the whole table. 

Resulting indicators are always used in connection with LOKUP. 

They are used to first indicate the tvoe of search desired and 
then to reflect the result of the search. A resulting indicator 
assigned to Eoual (columns 58-59) Instructs the program to search 
for an entrv in the tablp or arrav eoual to the search word. The 
indicator turns pn only if such an entrv is found. If there are 
several entries identical to the search word# the first one that 
is encountered is selected. 
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An indicator assianed to Low (columns 5t>-57) instructs the program 
to locate an entry in the table that is nearest to# vet lower in 
seauence than* the search word. The first such entry found causes 
the indicator assigned to Low to turn on. 

The indicator assigned to High (columns 54-55) instructs the 
oroqram to find the entry that is nearest to» vet higher in 
seouence than# the search word. The first higher entry found 
causes the indicator assigned to Hiah to turn on. In all cases 

the resulting indicator turns on only if the search is successful. 

At least one resulting indicator must be assianed# but no more 
than two can be used. Resulting Indicators can be assianed to 
Eaual and High or Eaual and Low. The proaram searches for an 
entry that satisfies either condition# with Eaual given 
precedence# that is# if no Eaual entry can be found# the nearest 

lower or nearest higher entry is selected. If resultina 

indicators are assigned both to High and Low# the indicator 
assigned to Low is ianored. When usina the LOKUP operation# 
remember: 

1. The search word and each table or array item must have the 
same length and the same format (alphanumeric or numeric)# but 
need not have the same alignment. 

2. You may search on Hiah# Low# Hiah and Eaual# or Low and Eaual 
only if your table or array is in seauence. 

3. No resultina indicator turns on if the entrv searched for is 
not found. 

8.50 Using the LOKUP 


8.51 LOKUP with One Table 

When searching a sinale table# Factor 1# Factor 2# and.at 
least one resultina indicator must be specified. Conditioning 
indicators (specified in columns 7-17) may also be used. 

whenever a table item is found that satisfies the type of search 
being made (Eaual# High# Low)# a codv of that table item Is placed 
in a special storage area. Everv time a search is successful# the 
newlv found table item is placed in this area# destrovina what was 
there before. If the search is not successful# no table item is 
placed before the unsuccessful search. 
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Resulting indicators are a]wavs set to reflect the result of the 
search. If the indicator Is on* showing a successful search# vou 
know that a codv of the item searched for is in the special 
storaae area. 

6,52 LOKUP with Two Tables 

When two related tables are used in,a.search# onlv one is 
actualJv searched. When the search condition (Hiqh# Low# Eoual) 
is satisfied# the corresDondino data items from both tables are 
made available for use. 

Factor 1 must be the search word and Factor 2 must name the table 
to be searched. The Result Field must name the related table from 
which data is made available for use. Resulting indicators must 
also be use^J. Conditioning indicators (soecified in columns 7»17) 
may be soecified if needed. 

The two tables involved should be the same length. If the table 
that is searched if longer than its related table# the search 
stoos at the end of the shorter table. 

8*53 Referencing the Table Item Found 

Whenever a table name is used in an operation other than 
LOKUP# the table name reallv refers to the data placed in the 
special storage area by the last successful search. Thus# by 
specifying the table name in this fashion# vou can use data items 
from a table in calculation operations. 

If the table is used as Factor 1 in a LOKUP operation# the 
contents of the special storage area are used as the search word. 
In this wav a data item from a table can itself become a search 
word. 

The table mav also be,used as the Result Field in operations other 
than the LOKUP operation. In this case the contents of the 
special storage area are,changed bv the ca)culatign operation. 

The cgrrespond!ng table item in the table itself is also changed. 
This is a wav in which vou can modify the contents of the table bv 
calculation operations. 
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8.54 LOKUP with an Arrav 

The LOKUP specifications fop arrays are the same as for 
tables exceot that if Factor 2 is an array# the Result field 
cannot be used. In addition if the desired item is found# the 
indicators reflect only that the desired item is in the array# the 
oroqrammer does not have ready access to this item. 

If you use.lust the arrav name in referencina the array# the 
search beains at the first element in the arrav. You must use 
indicators to determine if a match was found. 

If you use the array name and an index (which may be a field name 
or a literal)# the search beains at the element identified by the 
index. If a match is.found# the number of the array element 
containing the match is olaced in the field used as an index. If 
no match is found# the index is set to 1. 

If a literal was used as an index# indicators must be used to 
determine if a match was found. The content of the element 
referenced by the literal is not chanced. 

8.55 Subroutine Operations 

These operation codes are only used for subroutines. All 
subroutine operation codes must be written in specification lines 
following all detail and total calculations. Subroutine lines are 
always identified by an SR in columns 7-8. 

8.56 Begin Subroutine (BEGSR) 

This operation code serves as the beainninq point of the 
subroutine. Factor 1 must contain the name of the subroutine. 

8.57 End Subroutine (ENDSR) 

This operation code must be the last statement of the 
subroutine. It serves to define the end of the subroutine. 

Factor l may contain a name. This name then serves as a point to 
which vou can branch by a GOTO statement within the subroutine. 

The ENDSR operation ends the subroutine and automatically causes a 
branch back to the next statement after the EXSR operation. 
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8.58 Execute Subroutine (EXSR) 


This operation causes all the operations in the subroutine to 
be performed. EXSR mav,appear anywhere in the program, Wheneyer 
it appears#,the subroutine is executed.„ After ^11 operations in 
the subroutine ere done# the operation in the Hne followina the 
EXSR operation is performed. 

8.59 Programmed Control of Input and Output 

The normal Dataooint RPG II processing cycle is as follows: 

1. A record is read. 

2. Calculations are performed. 

3. Records are written. 

The normal program cycle can be altered to si low input, arid output 
ooerations,durinq calculations. The following operations provide 
this caoabi1itv: 

-• Exception (EXCPT) 

— Force (FORCE) 

— Display CDSPIY) 

•• Read (READ) 

— Chain (CHAIN) 

8.60 Exception (EXCPT) 

This ooeration.al1ows records to be written at the tim? 
calculations are being done. Use this primarily when you,wish to 
have,a variable number of,similar or identical records (either 
detail or total) written in one program evcle. (Remember that 
normally on)y the.exact number of records specified in the Output 
Format Specifications are written on a file in one program cyc.1?). 
For example# you might use EXCPT to produce a variable number of 
identical mailing labels# or to write out contents of a table. 


When the EXCPT operation is used# EXCPT is entered in columns 
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28-32# and columns 7-17 mav have entries. All other columns must 
be blank. The line or lines which are to be written out durina 
calculation time are indicated bv an E in column 15 of the Output 
Format Sheet. 

8.61 Force (FORCE) 

FORCE statements enable you to select the file from which the 
next record is to be taken for orocessina. They apoly to primary 
or secondary# input or update# files. 

Factor 2 in a FORCE statement identifies the file from which the 
next record is to be selected. If the statement is executed# the 
record is selected at the start of the next program cycle. If more 
than one FORCE statement is executed during the same proaram 
cycle# all but the last is ianored. FORCE should not be specified 
at total time. 

FORCE statements override the multifile processing method by which 
the oroaram normally selects records. However# the first record 
to be processed is always selected by the normal method. The 
remaining records can be selected bv FORCE statements. When end 
of file is encountered on a forced file# a record will not be 
retrieved from the file# normal records selection will determine 
which record is to be processed. 

8.62 Display CDSPLY) 

The display operation allows either or both of the followina; 

1. A field# taole element# array element# or literal up to 80 
characters long is displayed on the keyboard-disol ay during 
Drooram execution without a oroaram halt. 

2. A field# table element# literal# or array element uo to 80 
characters Iona is displayed on the keyboard-display# and the 
oroaram halts# allowing that field to be chanaed. 

A literal may not be chanaed with display. 

Factor 2 in a DSPLY statement identifies the file used for the 
display operation and must be defined with a D in column 15 of the 
File Description Specification, The device used must be the 
CONSOLE. 
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Fields 

Oefineo 

Data Displayed 

Keyboard 


Factor 

1 

DSPLY 

<factor-l> 

none 


Resu 11 

Field 

D3PLY 

<resu1t-fie1d> 

* 

ciata to 

replace 

Factor 

Result 

1 and 
Field 

D3PLY 

<factor-l> 

<resu1t-fie1o> 

* 

data to replace 
result-field 


There are several points to remember if you wish to enter data 
during program execution: 

1* Numeric data must be entered in Dataous format. 

To xey a negative field# the minus sign is keyed and then the 
field is Keyed. The entry will be automatically aligned on its 
decimal point before it is stored in the result field. The 
result field must be defined with one extra digit position to 
the left of the decimal point if a sign is to be entered. 

d, Alphanumeric result fields will be 

1eft-justifieo after all characters are keyed. If the number 
of characters entered is less than the result field size the 
field is right filled with blanxs. 

5. If no characters are entered or the space bar 

is not depressed# the result field will not be changed. 

A, Numeric fields are displayed in batabus format. 

The field definition must contain enough integerpositions to 
allow room for a minus sign to the left of the first 
significant digit or a NUhtKiC FiECD tKRUk may occur when 
displaying negative numbers. 

d.63 Head C READ) 

The RtAb operation is used to call for immediate input from a 
demand file during the calculations in the program cycle. This 
operation differs from the FORCE operation oecause FORCE specifies 
input on the next program cycle# not the present one. The HEAD 
operation is similar to the CriAIN operation# except that the READ 
file is processed sequentially ana the CHAIN file is processed 






randomly. 

The operation code RfcAD must appear in columns dd-idm Factor d 
contains the name of the file from which a recora will oe read 
immediately. An indicator should be useo in columns bb-bR. An 
indicator specified in these columns will turn on after a RtAu 
operation if an eno-of-file condition is reached. An attempt to 
read past end-of-file will cause an error message to be displayed. 
If columns db-bR are blank* a halt will occur on an eno-of-file 
condition and on subsequent RtAD operations after the end-of-file 
condition is reached. Indicators may’oe specified in columns 
7-17. 

Note: when the program is reading from several demand files 

during the same RPG II cycle* record identifying indicators 
assigned to the demand files will remain on throughout tne cycle 
if the previous RtAD operations were executed successfully. 

Ihe following files can appear as Factor c in a RtAD operation 
tall must oe designated demand files with a 0 in column lb of the 
File Description Sheet): 

Files processed consecutively and specified as input or upoate 
files. 

Console files specified as input files. 

when using the RtAD operation for demand tiles remember tnese, 
points: 

1. Demand tiles can only be processed by the RtAD operation. 

d, Control levels* matching fields* and iock-ahead fields are not 
allowed with demand files. 

3. Numeric sequence testing on the input Sheet is not allowed for 
demand files. 

4. The HR indicator may not be entered in columns b3-b4 (.Field 
Record Relation) on the Input Sheet. 

5. When a demand file is conditioned by a Ul-Ub indicator wnich 
is not on* no records will be read from that file ano the 
end-of-file indicator in coIumns' bb-bV will not turn on. 



6.64 Chain (CHAIN) 

The chain operation causes a record to be read from a disk 
file during calculations. This operation allows one record to be 
read in when the operation code CHAIN appears in columns 28-32 of 
the Calculation Sheet. 

indicators in columns 7-17 may ce used, but Result Field* Field 
Length* Decimal Position* and Half-Aojust (columns 43-63) must be 
DlanK. File conditioning indicators (U1-U8) can be used to 
condition a chained file. 

Factor I must contain: 

1. Relative record number of record to be read. 

2. Key of indexed file record to be read. 

Relative record number must be a numeric field with no decimal 
Positions. Relative record numbers start from 1. 

Keys must be alphanumeric fields. If the length is not the same as 
keys in the file* the shorter key will be extended with blanks for 
comparison. 

Factor 2 must contain the name of a CHAIN file. 

Columns b4-bb should contain an entry. If the record is not 
found* the indicator specified in these columns will turn on. 
Columns b6-o4 must always be d 1anx for chain operations. 

If an indicator is not specified in columns b4-bb* ana the recoro 
is not found* the program will halt and display a chaining error 
message. The options given are to end the job or bypass the 
remainder of the current cycle ana begin a new cycle. If LR 
processing has already been initiated* the 
bypass-ana-oegin-new-cyc1e option is not allowed. If the 
controlled cancel option is taken* files are closed* out the rest 
of the LR processing does not occur. Nhen a record is beyond the 
range of the file* the options to end tne job or bypass the 
remainder of the current cycle are given. 
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INDEXED UPDATE 
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NO 
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* Formatted 


ACTION CODED: 

A Record returned, 

o blank record returned. 

C Existing record upoatea. 

0 Existing record overwritten. 

E Hecora written in formatted o i s k space. 

F 


File extended and new record written 
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d dUPLILATt KtY error. 

6.6d Set Lower Limits Operation (StTLL) 

This operation allows the lower limit to oe set during 
calculations when processing indexed tiles sequentially oy key. It 
may De used with indexed input* update and demand files, fthen used 
with input and update files* care should be exercised to properly 
process records already read during the input cycle prior to 
executing calculations. [he StlLL operation may oe executed as 
many times as desireu prior to reaching the end of the input file. 
SfelLL will select a new starting record for input during the next 
following input cycle. 

Factor 1 must contain a field name or literal representing the 
value of tne lower limit being set. The length of the field or 
literal does not have to be equal to the length of the key for the 
file named in Factor d, The shorter Key will oe extended with 
blanks before comparison is made. 

Factor d must contain the name of the tile for which the lower 
limit is to be set. if a read is performed to the file prior to 
the first 6t TLL instruction the record with tne lowest xey in the 
file is reao. 

Tne 'Hode of Processing entry tcolumn Lb) in the f i 1 e desc r i pt i on 
must contain an L for processing within 1imits. 

а. 56 Audio Output Operations 

uperation codes are provided to allow audible signals to be 
given to alert tne operator of conditions requiring operator 
intervention. These signals can also be used for debugging ana 
timing, 

б, 67 deep CbbLHj 

The dfc.tR operation code causes the Datapoint computer to emit 
an audiole peep. 
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3.68 Click (CLICK) 

The CLICK operation coae causes tne Datapoint computer to 
emit an audiole cliCK. 

d.69 Ueoug Uperations 

The debug operation is an KPb ii function that may be used to 
help find errors in a program wnich is not working properly. Inis 
code causes one or more records to be written containing 
information helpful for finding programming errors. 

ti.70 Debug (DEBUG) 

The DEBUG operation code may pe placed at any point or at 
several points in the calculation operations, ^nenever it is 
encountered* one or more records are written depending upon the 
specifications entered. Une record contains a list of all 
indicators which are on at the time the DtbUu code was 
encountered. The other shows tne contents of any one tielo. 

d./1 apecifications 

Factor i is optional. It may contain a literal or field name 
wnich identifies the particular aeoug operation. the literal or 
the value of the field named here is written on record 1. Factor d 
must contain the name of tne output file on which the records are 
written. The same output file name must appear in Factor c for 
all DEBUG statements in a program. The result field may be a 
field* table element* array element* or whole array whose contents 
you want to write on record d. Any valid indicators may be used 
in columns 7-17. Columns u9~b9 must oe blank. 

Numeric fields are displayed in Dataoua format, fne field 
definition must contain enough integer positions to allow room for 
a minus sign to the left of the first sionificant digit or a 
NUMERIC FitLD cHROK may occur when displaying negative numbers. 

The operation coae produces results only if tne proper entry (1 in 
column lb) nas been made in the control card specifications. If 
the control card entry has not been made* the operation code DcbUG 
is treated as a comment. 



8.72 EXIT ana RLABl Operations 

Linkage from Oatapoint RPG ii to Assemoler language 
subroutines is accomplished througn the RPG II EXIT and RLAbL 
operations, 

8.73 EXIT Operation 

The EXIT operation code is usea to designate a point in the 
RPG II calcuI ation’specificat ions at which control is to be passed 
to a pre-processed? external subroutine. ihe rules for use of the 
EXIT operation in RPG II calculation specifications are as 

foilOMSi 

1, Operation EXIT. 

2. Factor lblanx. i 

5. Factor 2 contains the name of subroutine to which control is 
to pass. 

4, Result Field blank, 
b. Resulting Indicators blank. 

The EXIT operation can be conditioned by Control Level entries 
(columns 7-8) and Indicator entries (columns 9-17). It not 
conditioned by control level entries? the EXIT operation occurs at 
detail calculation time. 

The EXIT operation generates a CALL to the subroutine named in 
factor 2. 

8.74 RLA8L Specification 

Through the RLAbL operation? a field? table? or array defined 
in the RPG II program can be referenced by the suoroutine to which 
the EXIT operation gives control. Ihe rules for use of KLAbL in 
RPG II calculation specifications are as follows: 

1. Operation RLAul. 

2. Result Field contains fielo? table? or array name. 

3. Field Length contains the length of the field (optional). 
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A, decimal Positions contains tne uecimeI indication lout i one i J . 

1 he HLAoL specifications must 1 mmeaiateiy f o1 low tne t *i i 
specifications for the sut rout i ne which references tne kk b i t 
field. m name defined by a Iau? dlooK, or tdoSf' specification 
cannot ue used in an KLAoL specirication» 

ti.'/b referencing Melos 

If the result field of the hLA o l refers to a fields a 
four-byte uL is generated containing; the number of oecimai 
positions in tne field or 0 ifirst bytej? t he f i e i t; length tstcor 
o y t e ) ? anc the address (.third ano fourth uvtesi of tne I eft -most 
byte of tne field. A numeric field has normal zones tsou-d/l,/ 
over ail positions except tne last. (, r i y n t-mos t J ? which contains a 
cnaructer in the range i uu to dll it the number is positive or a 

c n a r a o t e r in the range ju! 0 to jc l it tne number- is negative. it 

the subroutine generates numeric results? tne user snoulo ensure 
that all zero values generated have a positive sign. 

t!, 7 b heferenciny ladles ana arrays 

If the result field of the Klmcl re ter s to a tat. ie or array? 
tne two-byte address of the !aole description clock I i uo) is 
generatecj, bee appendix u for its format. 

A,77 Heferenciny indicators 

An assembler subroutine may reference indicators in tne hhu 
II program to which it is linked. Inis is done v y entering Inx x 

in the result field of an « L a o L specification. ihe xx re resents 

the indicator to be referenced. for example? if Mr is to ce 
tested? I n f! H must be entered in the K e s u I t field of tne f L A o u 
specification. 

Ine object code generated is the two-uyte aouress ct tne 
indicator. An indicator byte contains zero when the indicator is 
off. It is non-zero land normally b / 7 j when it is on. 


note; iwo-oyte addresses are generated in the standard order; 
ieast-significant-byte? then most-significant-bvte. 
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Outout Format soecifications describe vour output records. 
These soecifications mav be divided into two aenera! categories: 

1. Record description entries (columns 7-31) which describe the 
outout file records to be written, 

2 • Field description entries (columns 32-74) which indicate the 
position and the format of data on the outout 
record. 

Write the specifications on the Output Format Sheet. 
The field description entries start one line lower than record 
description entries. 

9.1 Columns 1-2 (Page) and Columns 3-5 (Line) 

See Chapter 2. 

9.2 Column 6 (Form Type) 

An 0 must appear in column 6. 

9.3 Columns 7-14 (Filename) 

Use columns 7-14 to identify the file to which records are to 
be written. The filename must begin in column 7. Use the same 
filename aiven in the file description specifications. You need to 
specify the outout filename only once. That name, however, must 
be on the first line that identifies the file. 

9.4 Column 15 (Type) 

Entry Explanation 

H Heading records. 

D Detai1 records, 

T Total records. 

E Exception Records (records to be written during 

calculaton time). 
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Use column 15 to indicate the type of.recprd that is 
to be written. Either enter the records for each file in this , 
order* heading* detai1 * total* and exception# or enter all heading 
records for all output files# then# all detail records for all 
output files* etc. 

9.5 Columns 16«18 (Add a Record) 

Entry Explanation 

ADD Add a record, 

Columnsl6»l8 may be used,to specify that a record is to be added 
to an output or update file. The output device muft be DI3K.and.an 
A must be coded in column 66 of the File Description Specification 
for the file to which the record is to be added. 

This entry is optional and is not required for adding records to 
the fi1e. 

9.6 Column 16 (Fetch Overflow) 

Entry Explanation 

Blank Overflow not fetched. 

F Fetch overflow. 

Column 16 mav be used to indicate that the overflow routine can be 
used at this point for a printer file. 

9.7 Fetch»Overf1ow 

When the fetch overflow routine i$ not used# the following 
usually occurs when the overflow line is sensed* 

1. All remaining detail lines in that program cvcle are printed 
(if a printer operation spaced or skipped to the overflow 
area). 

2. All remaining total lines in that program cycle are printed. 

3. All lines conditioned by an overflow indicator are printed. 

4. Forms .advance to a new oaoe if a skip to a new page has been 
specified. 
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If vou do not want all of the remaininq detail and total lines 
printed on the oaae before overflow lines are printed and forms 
advance to the new oaae# vou may cause overflow lines to be 
printed ahead of the usual time. This is known as fetchina the 
overflow routine and is indicated bv the entry in column 16. 
Overflow is fetched only if all conditions specified by the 
indicators in columns 23-31 are met and an overflow has occurred. 

The fetched overflow routine does not automatically cause forms to 
advance. A skip to line 01 (new oaae) must also be specified on a 
line conditioned bv the overflow indicator in order to advance the 
forms. 

F may be used in an OR line if vou want that line to condition a 
record with the overflow indicator. 

9.8 Columns 17-22 (Space/Skio) 

Columns 17-22 are used to specify spacina and line skiopina 
for a orinter file. If these columns are blank* sinqle spacinq 
occurs automatically after each line is printed. 

Line ^oacina and skippinq may be specified both before and after 
orintinq of a line. There may be as many as six spaces (three 
before# three after) between two lines of printina. Only space 
before and space after can be specified on output for the display. 

If both spacinq and skiooinq are specified on the same line# they 
are done in this order: 

1. Skio before. 

2. Space before. 

3. Skio after, 
a. Space after. 

9.9 Columns 17-18 (Space) 

Entry Explanation 

0 No spacinq. 

1 Sinale soacinq. 

2 Double soacinq. 
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Triple spacing. 

Spacing Is used in,reference to the lines on one page. You may 
indicate that spacing should be done before,(column 17) or after 
(column 18) a line is printed. If the destination of a space 
operation is a line beyond the overflow line (but not on a new 
page)# the overflow lines are printed. 

Note*.. The display will always roll up one line before outout. 
Therefore# a space before entry of blank# zero# or one will result 
in a single space before outout. 

9.10 Columns 19-22 (Skip) 

Entry Explanation 

01-99 Lines 1-99. 


Skipping refers to lumping.from one printJno.1ine to another 
without stooping at lines in between. This is usually done when a 
new page is needed. A skip to a lower line number means advance 
to a new page. Skipping may also be used# however# when a great 
deal of space is needed between lines. 

The entry must be the twordigit number which.indicates th$ nymber 
of the next line to be printed. You mav indicate that skipping 
should be done before (columns. 19-20) or after (columns 21-22) a 
line is printed. If you specify a skip to„,the same line number as 
the forms are positioned on# no movement of the paper occurs... If 
the destination of a skip operation is_a line beyond the overflow 
line (but not on a.new page)# the overflow indicator is turned on 
and remains on until all. overf 1 ow 1 ines are printed. The 
destination line of a skip operation must not be beyond the form 
length defined on the Lin© Counter Sheet, 

9,11 Columns 23-31 (Outout Indicators) 

Entry Explanation 

01-99 Any resulting indicator# field indicator* or record 

identifying indicator previously specified. 

L1-L9 Any control level indicators previously specified. 

H1-H9 Any halt indicators previously specified. 
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Ui«U8 Any external Indicator set orlor to proaram 

execution. 

QA-OG. Any overflow indicator previously assi qned to 
OV this file. 

MR Matchina record indicator. 

LR Last record indicator. 

IP First oaoe indicator. 

LO Level zero indicator. 

Use output indicators to aive the conditions under 
which out du t operations are to be done, when you use an indicator 
to condition an entire line of orinti olace it on the line which 
specified the type of record. Place an indicator which conditions 
when a field is to be printed on the same line as the field name. 

There are three separate output indicator fields (columns 23-25. 
26-28. and 29-31). One indicator may be entered in each field. 

If these indicators are on. the output operation will be done. An 
N in the column (23. 26. or 29) precedina each indicator means 
that the output operation will be done onlv if the indicator is 
not on. No output line should be conditioned by all negative 
indicators (at least one of the indicators used should be 
positive). If all neaative indicators condition a headina or 
detail operation# the operation is performed at the beginning of 
the proaram cycle when IP lines are written. The overflow 
indicators may not be specified on an t (exception output) line. 

Warning* When defining records of update files, avoid writing 
multiple records on one cvcle. since results are unpredictable. 

In Dataooint RPG II. all total lines conditioned bv LR will be 
performed last. 

9.12 AND and OR Lines 

If you need to use more than three indicators to condition an 
output operation, you may use an AND line. Enter the word AND in 
columns 14-16 and as many indicators as needed. The condition for 
all indicators in an AND relationship must be satisfied before the 
output operation is done. 

Output indicators may also be in an OR relationship. If either or 
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both of theOR conditions are met# the outDut operation will be 
done. OR lines are indicated bv the word OR in columns 14-15, 

Both AND or OR lines may be used toaether to condition an entire 
Output line. AND and OR lines cannot be used to condition a 
field. 

The use of an L0-L9 indicator In an OR relationship with an LR 
Indicator can result in the specified operation being done twice 
when LR is on. One operation Is performed during LR processing 
and the other at detail or total time. 

9.13 External Indicators 

,A file named in the Output Format specifications mav.be 
conditioned bv an external.Indlcator in the file description 
specifications. External indicators can also be u$ed to condition 
a record or field. No output can occur to a file if It Is 
conditioned bv an external Indicator and that indicator is off. 

9.14 Control Level Indicators 

Control level Indicators entered in columns 23-31 9 f this 
sheet specify when output records or field are to be written* 

1. If the control level Indicator Is entered along with a T in 
column 15 and no overflow indicator is used# the record is 
written only after the last record of a control group has been 
processed. 

2. If the Indicator is,entered along with a D in column 15 and no 
overflow Indicator is used# the record is written only after 
the first record of the new control group has been processed. 

3. If the control level Indicator Is entered along with an 
overflow indicator# the record Is written after the overflow 
line has been sensed (provided a control break has also 
occurred). 

9.15 Overflow Indicators 

Overflow indicators are used to condition output operations 
on the printer. The operations conditioned bv the overflow 
Indicator are done only after the overflow line has been passed. 

If you have not assigned an overflow Indicator to the printer file 
in the FI)e Descript Ion specifications# vou mav not use an 
overflow indicator in the Output Format specifications. In this 
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case# advancing the forms to a new oaqe is handled automatically# 
even though no overflow indicator has been assigned. If anv 
specification line not conditioned by an overflow indicator 
specifies a skio to a line on a new oaqe# overflow indicators turn 
off before forms advance to a new oaqe. 

An overflow indicator may aoDear on either AND or UR lines. 
However# only one overflow indicator may be associated with one 
qrouo of output indicators. That overflow indicator must also be 
the same indicator associated with the file on the File 
Description Sheet. 

When the overflow indicator is used in an AND relationship with a 
record identifying indicator# unusual results are often obtained. 
This is because the record type might not be the one read when 
overflow has occurred. Thus# the record type indicator is not on 
and all lines conditioned by both overflow and record type 
indicators do not print. 

If at all possible# use overflow indicators and record type 
indicators in an OR relationship when conditioning output lines. 

An overflow indicator cannot condition an exception line (E in 
column 15}# but may condition fields within the exception record. 

9.16 First Page Indicator 

The first page (IP) indicator is usually used to allow 
printing on the first paae. It may also be used in connection 
with the overfjow indicator to allow printing on every page. The 
information printed out on the line conditioned by the IP 
indicator is usually constant information used as headina. The 
constant information is specified on the Output Format Sheet# 
columns 45*70. 

The IP indicator is used only with heading or detail output lines. 
It cannot be used to condition total or exception output lines. 

Use this indicator only when other indicators (control level or 
resulting indicators) cannot be used to control printing on every 
oaqe. 

All lines conditioned by the IP indicator are written out even 
before the first record from any input file is processed. 


Therefore# do not condition output fields (except PAGE and UDATE) 
which are based upon data from input records by the IP indicator. 


CHAPTER 9. OUTPUT FORMAT SPECIFICATION 


9-7 



Calculation operations cannot be conditioned by the IP indicator. 

9.17 Columns 32-37 (Field Name) 

In columns 32-37# use one of the following to name every 
field that is to be written out. 

1. Any field name previously used in the program. 

2. The special words PAGE# UDATE# UDAY, UMQNTH# and UYEAR. 

3. A table name# array name# or array element. 

The field names used are the same as thf field names on the 
Input Sheet (columns 53-58) or the Calculation Sheet (columns 
43-48). Do not use these columns if a constant is used (see. 
Columns 45-70 in this chapter). If a field name is entered in 
columns 32-37# columns 7-22 must be blank. 

Fields may be listed on the sheet in any order since the seauence 
in which they appear on the printed form is determined by the 
entry in columns 40-43. However# they are usual 1v 1isted .„. 
sequentially. Jf later fields overlap the first fields specified# 
the data which is overlayed is lost. 

The siqn (♦ or..-) of a numeric field is in the unjts position 
(rightmost digit). A minus siqn in the units position prints as a 
letter unless the field is edited (see Column 38 and Column 44 in 
this chapter). 

9.18 PAGE 

PAGE is a special word which causes automatic numbering of 
pages. Enter the word PAGE in these columns if you.wish pages (or 
an individual record) to be numbered. When a PAGE field is named 
in these columns without beinq defined elsewhere# it.is assumed to 
be a four-oosition numeric field with no decimal positions. 

However# a. PAGE field can be defined in input or calculation, 
specifications and mav be up to 15 positions long. A PAGE field 
defined elsewhere must be defined with zero decimal positive, 
Upadinq zeros are suppressed# and the sign is not printed ip_|he 
rightmost position unless an edit word or edit code is specified. 
The page number starts with 1 unless otherwise specified# and one 
is automatically added each time the PAGE field is written. 

It is possible at any point in the Job to restart the page 


9-8 


RPG II SYSTEM 



numbering sequence. To do this, set the PAGE field to zero before 
it is orinted. One method of setting the PAGE field to zero is to 
use Blank After (see Column 39 in this chaoter). Another way is 
to use an outout indicator. A PAGE field will.always be printed 
even thouqh the field is conditioned by an indicator. If the 
indicator is on. the PAGE field is set to.zero, and one is added 
before it is written. Remember that one is always added to the 
PAGE field before it is written. 

9.19 Date Field 

Often you want the date to appear on the printed report, 
punched card, or output record. Use special words UDATE. UMONTH. 
UDAY. and UYEAR to ge^ the date field you desire. The following 
rules apply to date field: 

1. UDATE qives a six-character numeric date field in the format: 
mmddyv (d. m» and y are the day. month and year positions in 
the UDATE field). 

The edited date field is eiaht characters Iona, in the format: 
MM/DD/YY. 

2. UDAY may be used for days only. UMONTH for months only, and 
UYEAR for years only. 

3. These fields may not be chanaed by anv operations specified in 
the program. 

9.20 Column 38 (Edit Codes) 

Use column 38 to: 

1. Suppress leading zeros for a numeric field. 

2. Omit a sign from the low order position of a numeric field. 

3. Punctuate a numeric field without setting uo an edit word. 

A table summarizing the edit codes that can be used is printed 
below. Each edit code punctuates differently. If an edit code is 
used in column 38. columns 45-70 must be blank unless asterisk 
fill or afloatina dollar siqn is required (* * * or * $ # entered in 
columns 45-47). If an edit code is used to punctuate an array, 
two spaces are left between elements of the array to the left of 
each element. 
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NormaJIv# when an edit code is used in column 38# defining an edit 
word in columns 45-70 is not allowed; however# there are two 
exceptions: 

1. If leading zeros are replaced bv asterisks# enter '+* in 
columns 45-47 of the line containing the edit code# 

2. If a dollar sign is to appear before the first digit in the 
field,(f1 oating dollar sign)# enter # $ # in columns 45-47 of 
the line containing the edit code. 

Asterisk fill and floating dollar sign are not allowed with X# 
Y and Z edit codes. 

It is also possible to have a dollar sign appear before the 
asterisk fill (fixed dollar sign). This is done in the following 
way: 

1. Place a dollar sign constant one space before the beginning of 
the edited field. 

2. Place column 45-47 of t^ e 1ine containing the edit code. 



Summary 

of Edit 

Codes 


Commas 

Zero 

to Print 

No 

S i gn 

CR 

m 

Yes 

Yes 

1 

A 

J 

Yes 

No 

2 

B 

K 

No 

Yes 

3 

c 

L 

No 

No 

4 

D 

M 

X s 

Remove Plus 

Sion 



Y = 

Date Field 

Edi t 




Z * Zero Suppress 
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9.21 Column 39 (Blank After) 


Entrv Explanation 

Blank Field is not to be reset (blanked or zeroed) after 

writino. 

B Field is to be reset (blanked or zeroed) after 

writing. 

Use column 39 to reset a field to zeros or blanks. 
Numeric fields are set to zero and alphanumeric fields are set to 
blanks. This column must be blank for Look-Ahead fields. Udate 
fields (UDATE. UDAY, UMONTH. UYEAR), and constants. 

Resetting fields to zeros is useful when accumulating and printing 
totals for each control group. After findina the total for one 
qrouP and printing it. you want to start accumulating and printing 
totals for the next orouo. However, the total field should always 
start with zeros, not with the total it had for the previous 
group. Blank After will reset the total field to zero after it is 
orinted. 

If the field is to be used for outout more than once, be sure the 
B is entered on the last output line for that field. Otherwise, 
the field is blanked out before all reguired output is finished. 

If a field name specified with Blank After is a table name, the 
element of the table looked up last will be blanked or zeroed. 

9.22 Columns AO-43 (end Position in Outout Record) 

Use columns 40-43 to indicate the location on the output 
record of the field or constant that is to be written. Enter only 
the number of the printinq position of the rightmost character in 
the field or constant. Be sure to allow enough soace (as 
indicated bv end position entries) on the outout record to hold 
edited fields. 

9.23 Column 44 (Packed or Binary Field) 

Entry Explanation 

Blank Field is IBM-comoatible numeric or alphanumeric 

dat a. 
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D Field is Datapoint-compatible numeric data. 

Column 44 should contain a D for output in Dejapoint 
format. If used, the field must not be edited. Since a decimal 
point is automatically inserted when the field is written# an 
additional column must be allowed for the period* A minus fign 
will always be placed to the left of the most significant? digit. 
There must be room fop both a decimal point and a sign if the 
output field is negative. 

Examoles 


Internal field 

Si ze 

Output field 

Size 

1234 

4.0 

1234. 

5 

012L 

4.0 

-123. 

5 

123M 

4.0 

illegal 

5 

00 IK 

4.0 

-12. 

5 


9.24 Columns 45-70 (Constant or Edit Word) 

Use columns 45-70 to specify a constant or an edit word. 

9.25 Constant 

A constant is any unchanaina information that is entered bv a 

specification. Constants are usually words used for report 

headings or column headinas. 

The followina rules apply to constants; 

1. Field name (columns 32-37) must be blank. 

2. A constant must be enclosed in apostrophes. Enter the leading 
apostrophe in column 45, 

3. An apostrophe in a constant must be represented bv two 
apostrophes. For example# if O'CLOCK appears as a constant it 
must be coded Q"CLQCK. 

4. Up to 24 characters of constant information can be placed in 
one line. Additional lines may be used# but each line must be 
treated as a separate line of constants. The end position of 
each line must appear in columns 40-43. 
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9.26 Edit Word 

An edit word gives more flexibility in punctuatina a numeric 
field than an edit code. You directly specify whether commas, 
decimal points, and zero suppression are needed, whether the 
negative sign should print, whether the output is dollars and 
cents, and whether dollar sign and leadina asterisks are wanted. 
Constants can be used within edit words. 

The following rules apply to edit words: 

1. Column 38 (Edit Codes) must not be used. 

2. Columns 32-37 (Field Name) must contain the name of a numeric 

field. 

3. Columns AO-43 (End Position in Output Record) must contain an 
entry. 

A. An edit word must be enclosed in apostrophes. Enter leading 
apostrophe in column 4b, The edit word itself must begin in 
column 46, 

5. Any printable character is valid, but certain characters in 
certain positions have special uses (see Editina 
Considerations in the following text). 

6. An edit word cannot be longer than 24 characters. 

7. The number of replaceable characters in the edit word must be 
eaual to the length of the field to be edited. See Editing 
Considerations in the following text for a discussion of 
replaceable characters. 

8. All leading zeros are suppressed unless a zero or asterisk is 
specified in the edit word. The zero or asterisk indicates 
the last leading zero in the field to be replaced by a blank 
orasterisk. 

9. Any zeros or asterisks following the leftmost zero or asterisk 
are treated as constants (they are not replaceable 
characters). 

10. Any constant to the left of the zero suppression stop 
character (except $) will be suppressed unless a significant 
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digit precedes the constant. 

9.27 Editing Considerations 

Always leave exactly enough room on the output file for the 
edited field. If the field to be edited is seven characters long 
on the input record# make sure seven positions allow enough, space 
for it to be written on the output file. Bv the time the field is 
edited# it may contain many more characters than seven. 

When computing the length of an edited output field# determine how 
many of the editing characters are replaceable. The number of 
replaceable characters in the edit word must be eoual to the 
length of the field to be edited (see following Note). The 
replaceable characters are: 

Character Use 

0 Zero Suppression, 

* Asterisk fill, 

b Blank 

S Floating dollar sign (if it appears immediately to 

the left of zero suppress). 

A fixed dollar sign# decimal points# floating dollar 
sign# commas# ampersands (represent i ng blanks)# negative signs (• 
or CR) and constant information are not replaceable characters. 

Note: There are two exceptions to the rule that the number of 

replaceable characters in the edit word must be eaual to the 
length of the field to be edited. The exceptions are: 

1. An extra space myst be left in the edit word for the floating 
dpi 1ar sign. This ensures a print position for the dollar 
sign if the output field is full. 

2. An extra space can be left in the edit word if the first 
character in the edit word is a zero suppressed# but all other 
specified editing will be performed. 

If it is necessary to show a negative number# a sign must be 
Included in the edit word. Either the minus sign (■) or the 
letters CR may be used. These print only for a negative number# 
however# the character positions they reouire must be taken into 
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considerat i on 
Output Format 


when entering the end position of the field on the 
Sheet. 
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VALUE OF PlELP 


WRITTEN ON O/P RECORD 


000/2.75 
00012.75 
-1000.00 
0000.00 
1000.00 
-1000.00 
0025.50 
0 / 00000.00 
00/000.00 
765%IZ 
125.7$ 
00050.00 
03)575 
08/5 
0400./O 
OOOOOlO 
022875 
0000.03 
- 00222.22 
3+56.76 
12345667 
000200 
/ 23+56 
00000. 
OOOOO 
0002+60 
- 00/2 
000J 5 
OOOZ34 
0000.00 
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000 12.75 
00/275 
1000.00- 
000.00 
1000.0000 

/000.00OR. 
002530000 TOTAL 
00100 , 000.00 000 
00041)000.00000 
785-96/2 
4/25.75" 

$000050.00 

03 / 15175 ' 

08HR 5. 15M/N5 O'CLOCK. 
H400>/0 
******* 10 
02028075 
00000003 
000222.220-0 GROSS 
3,456.7600** 
12,345,667 
***200 

10203 040506 
00000 
00000 
0002468 
00 / 20 — 

0000/5 
000 2*34 
00000.00 


Note. aK decimal point*, appearing under 4ALUG OF F/BLP are in)plied and do no& 
occupy A byte, o7 memory. 

Figure 9-1. ExamD,Te of edit words. 


9.28 Columns 71-74 

These columns are not used and should be left blank. 
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9.29 Columns 75*80 (Proaram Identification) 


Refer to Chapter 2. 
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Figure 9-2. Examples of Output Specifications 



















































APPENpIX A. GENERATION AND USE OF RPG II 


RPG II Generation For Cartridge Disks 

The collection of files which comprise the Dataooint RPG II system 
are distributed on five cassettes# labeled RPG II CASSETTE A# RPG 
II CASSETTE B# RPG II CASSETTE C# RPG II CASSETTE D# and RPG II 
CASSETTE E. The contents of these five cassettes must be 
catalogued under DOS using the RPG II Generator# which is also on 
CASSETTE A. In order for the system generation to be successful# 
there must be at least 42 free files and 1800 free sectors on the 
drive specified for generation. The actual number of free files 
and sectors can be determined bv running the FILES orooram and, 
subtracting the total number of files from 256 and the total size 
from 9600. 

Once it has been determined that there is enough space for the RPG 
II system# place CASSETTE A in the front deck# and type the 
commands IN RPGGEN/CMD. This will brina in the RPG II system 
generator. Now tvoe; RPGGEN# which will cause the generator to 
start operating. It will first ask for the drive on which to place 
the RPG II system# and will only accept 0# 1# 2# or 3 as valid 
responses. After a valid drive specification has been entered# the 
generator wi11 ask for CASSETTE A. Put this cassette in the front 
deck (if it is not there already) and press ENTER. At the 
completion of the tape# the generator will ask for CASSETTE B. At 
this point# CASSETTE A should be removed from the front deck# 
CASSETTE B inserted in its place# and ENTER pressed again. At the 
end of this tape# CASSETTE C will be asked for# and then CASSETTE 
D and finally CASSETTE E. Uoon completion of CASSETTE E, the RPG 
II system generation is complete and ready for operation. 


Selective Generation 

If# as sometimes happens# a single RPG II system file aets 
destroyed# it can be selectively recovered by one of two 
procedures# depending uoon the tvoe of file. RPGGEN has the 
facility to bypass a tape if is keyed in when a cassette is 

asked for. This is useful for recovering one of the library files 
from CASSETTES A# 8 or C. An overlay file or the ore-processor 
can be recovered bv performing: 

IN <name> Nxx 
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where x* is the file number on CASSETTE 0 or E. 
table alves the cassette names and file numbers 
recovery. 


File 

Cassette 

Recove 

RPGALIB 

A 

RPGGEN 

RPGBLIB 

B 

RPGGEN 

RPGCLIB 

C 

RPGGEN 

RPG/CMO 

D 

#2 

RPG/OAB 

0 

#3 

RPG/OAD 

D 

#4 

RPG/OAE 

0 

#5 

RPG/OAG 

D 

#6 

RPG/OAK 

D 

#7 

RPG/OAM 

D 

#10 

RPG/OAZ 

D 

#11 

RPG/OCA 

0 

#12 

RPG/OCG 

D 

#13 

RPG/OCK 

0 

#14 

RPG/OFC 

0 

#15 

RPG/QFK 

0 

#16 

RPG/OGA 

D 

#17 

RPG/OGB 

D 

#20 

RPG/OGD 

D 

#21 

RPG/OGF 

0 

#22 

RPG/OGH 

D 

#23 

RPG/OGK 

D 

#24 

RPG/OGM 

D 

#25 

RPG/OGO 

0 

#26 

RPG/OMB 

D 

#27 

RPG/OMP 

0 

#30 


The foilowii?o 
for sinole file 
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RPG/QPA E 
RPG/OPX E 
RPG/OSA E 
RPG/OSQ E 
RPG/OUA E 
RPG/OUU E 
RPG/OWA E 
RPG/OWL E 
RPG/QrtM E 
RPG/ONS E 
RPG/OfcU E 
RPG/OwX E 
RPG/OZZ E 
RPGPP/CMD E 
RPGLDR/OV1 E 
RPGISA/QV1 E 


RPG II Generation 


#2 
#3 
#4 
U 5 
#6 
HI 
#10 
#11 
#12 
#13 
#14 
#15 
#16 
#17 
#20 
#21 

r Diskette Systems 


Diskette systems will be distributed on diskettes rather than 
cassettes. A diskette user will receive four diskettes labeled 
RPG II DISKETTE 1, RPG II DISKETTE 2, RPG II DISKETTE 3, RPG II 
DISKETTE 4. These diskettes should be placed on drives 0# 1# 2# 3 
respectivelv. 


In addition to the RPG II files# the user will need to build the 
followina DOS utilities on DISKETTE 4s 
SORT/CMD and SQRT/OV1 
INDEX/CMD and INDEX/QV1 
REFORMAT/CMD 

All utilities must be the proper version for DOS.C. RPGPREP/CMD 
will be, included on DISKETTE 4. 

Use the diskette on drive zero for RPG II source and object 
oroqrams and other user desired utilities (as#EDIT# LIST# etc.). 
The RPG II compiler will use the diskette on drive zero for work 
files. Note that four drives are reauired for an RPG II 
compilation on diskette. 


Comoilina an RPG II Proaram 

An RPG II source file is compiled by the RPG II compiler bv kevinq 
in a command with the followina format: 

RPG srcfil (#objfi1)(#(L)(0)(F)(I)CD>(S3(X)) 


A**3 
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where the file name? are in standard DOS format. If no object file 
is specified# th* file "srcfil/CMD" will be produced, TXT 
extension is assumed for the source file# which can be in |DIT or 
DATAFQRM format# and CMD is the default object file extension. The 
option characters are used as follows* 

L - List source program and storage map 


0 

m 

List 

generated object 

code 

(reouires 

L) 

F 

m 

List 

code under false 

IF's 

(reouires 

L#Q) 

G 

• 

List 

al1 object bytes 


(reoui 

L#0) 

I 

- 

Li st 

inc1uded 1 i brarv 

routines 

(reouires 

L#0) 

D 

m 

Display object code 




S 

m 

List 

symbol table 


(reouires 

L) 

X 

m 

Li st 

cross references 


C reouires 

L) 


For normal use of the compiler# the L ootipn is all that is 
required. The 0 and I options will cause listings of 30 to over 
100 pages to be produced# and exist for use bv maintenance 
personnel. 

After the RPG II compiler.has been invokedf.it will ask for a. 
headinq line if the L option has been specified, A page heading 
should be keved in#.terminated with ENTER. Thjs heading will then 
appear on the too line of every page of the listing, The compiler 
will then process the source file# and produce an executable 
object file. During the processing# the too rioht*hand corner of, 
the display will contain the message "PHASE XX"# where XX are two 
alphabetic characters. These two characters indicate which 
compilation phase is being executed at anv particular time. There 
are over *|0 separate Phases# each corresoonding to a particular 
portion of the compilation process. The names of the phases and 
their functions are more fully described in Appendix C. 

Additionally# there are a number of PAUSE points defined in the 
compiler. These occur before disolavina each error note# error 
text# IDENT# and object code line. At each of these PAUSE points# 
if the DISPLAY kpv is depressed# execution will be temporarily 
suspended until it is released. If the KEYBOARD key is depressed# 
the machine will BEEP and stop execution. This is another facility 
for maintenance personnel# and as such is not required for normal 
compiler operation. The compiler can be restarted from this 
suspended condition bv pressing ENTER. 


Runninq a Compiled RPG II Program 

After compiling the source file# the resulting object file is 
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executed bv merely calHna for it from the command interoreter. 
For example suppose the source file TEST/TXT were compiled by the 
command: 

RPG TEST # L 

Then the oblect file could be executed bv the command! 

TEST 

The oblect file can not accept parameters from the command line; 
all necessary interaction with the user is done under object 
program control. 


DATE Field 

If any of the special words! UDATE/ UDAY, UMONTH, or UYEAR were 
used in the source orooram* the oblect oroaram will ask for the 
date/ which should be entered as MM/DD/YY. For example/ Sect. 5, 
1973/ is entered as 09/05/73. 


External Indicators 

If anv of the external indicators/ U1 to U8z were used in the 
source oroaram/ the object oroaram will ask for their values at 
the beainnina of execution. The values must be entered in binary/ 
with a 0 settina the indicator off and a 1 settina it on, and in 
the followina order! 

U1 U2 U3 ua U5 Ub U7 U6 

Values for indicators not used are not reauired if there are no 
used indicators with a hiaher number. For example/ if U1 were the 
only external indicator used/ a valid response is either! 

0 or 1. 

If U1 and U2 were the only external indicators used/ the valid 
responses are! 

00, 01, 10/ or 11. 

However/ if U1 and U3 were used/ and no others/ the response must 
be of the form! 
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0x0# 0x1# 1x0# or lxl 
where x is any character. 


Qoeninq Fi1es 

Each file opened bv the object^oroqram causes an.qoenina message 
to be displayed. In the case of assiqnabl? disk files# a_ij*essaqe 
will be displayed* and then the oroqram will wait for a file name 
to be entered. This name should be In standard QOS format (TXT 
extension.is assumed for data files* ISI extension Is assymed for 
indexed files if extension is not qiven). If a defined disk file 
does not exist# an error messaoe will Ipe dlsolayed and the proqram 
will then ask for a name as for an assionable file. 


Indexlna ISAM (indexed) Files 

' 1 

Indexed files are created In exactly the,same.format as any fixed 
format disk file. The data structure is identical and may be , 
processed# dlsreoardlno the index# as a simple fixed format.file. 
To permit orocessinq as an indexed file# the INDEX utility js used 
to create a separate index file. The file Is indexed by typino: 

INDEX dataf11e(#1ndexfi1e) f (E)aaa-bbb 

All parameters within the parenthesis are optional. File.names are 
in standard DOS format. If the indexfile name parameter is 
omitted# an index yil] be created with the name "dataf 11 e/ISI% 

The "E" parameter Indicates that the index is in EBCDIC collatlna 
sequence. If the "£" is omitted the index will.be created in.ASCII 
sequence. The parameter aaa (1*255) is the position of the first 
character in the key and bbb (1-353) is the position of the end of 
the key. 

The indexfjle name should be referenced in the File Description 
Specifications anv time the file is used as an Indexed input# 
update or add file in an RPG proqram. 

Console Input Files 

When enterlno data from the keyboard as an input file# end of file 
mpy be entered bv deoressinq the DISPLAY key and the ENTER key 
simultaneously. This elimi nates the necessity of codino an end of 
file character to set the LR indicator for keyboard input files. 
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APPENDIX B. DETAILED PPG OBJECT FLOW 


The flowcharts in this 
The numbers beside each box 
follows. Initialization is 
processing cycle* 5 through 


aooendix give the pblect program flow 
refer to the description which 
covered in steps 1 through 4; the 
38; and termination* 39 and 40, 


Initialization 

1. Starts For each external indicator (U1-U8) used* the program 
reguests the settina from the keyboard, 

2. For each table input file in use* the oroaram ooens the file* 
and then reads all the tables on that file into memory. 


3. All files used during normal processing are ooenea/oreoared. 
The names of files assigned to the disk may be keyed in. If 
the program is unable to ooen all files* DOS is reloaded, 

4, All working areas are cleared to blank/zero. Indicators are 
set to off except IP. Records are reouested for all 
inout/uodate files. 


Program Cycle 

5. Cycle; All headina and detai1 . records whose output condition 
is true are written. The overflow indicator and switch are 
turned on if necessary and overflow outout is performed if 
fetched during detail outout. 

6. The overflow switch is copied to the overflow indicator (see 
also step 35), 

7. Bypass: If any halt indicator (H1-H9) is on* a halt code is 
set* and the corresponding indicator is turned off. Control 
then does to step 18 (Error). If all halt indicators are off 
this step is skipped. 

8. All record identifying indicators are turned off# as well as 
control level indicators. 

9. If the last record indicator (LR) is on* a branch is taken to 
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step 30 (Last Cycle). 

Incut* The input fteos 10 through 17 are performed for all 

inout/ypdate files. The exit to Select is taken only for the 
1ast file. 

10. If no record request is oendinq for this file, qo. to.step 10 

for the next file or ao to step 21 (Select) if this is the 

last input file.. Note that on the first cycler reauests are 
pending for all incut files. 

11. Go to step 17 if this file is at end-of»file. 

12. Read the next record from this file. 

13. Go to step 18 (Error) if an Inout/Outout error occurred. 

14. Go to step 17 if file now at end. 

15. Trv to identify the record type and check the type seauence. 

16. Go to step 18 (Error) if type or type sequence error. 

17. Turn off the record request. Control goes to the next input 
sequence or to step 21 (Select). 

18. Error* The code for the halt is displayed and the oroaram 
requests whether to bypass, cancel, or abort. 

19. If the halt is to be bypassed, qo to step 7 (Bypass). 

20. If the halt is to cause cancellation, qo to step 30 (Last 
Cycle). Otherwise abort to DOS. 

Select: 

Depending on the program, one of four select routines is 
compiled* The others are subsets of matching with multiple 
inout files. 

21* If all incut files which must be at end-of-file are at their 
end, qo to step 30 (Last Cvcle). 

22. If a valid FORCE has been executed, make that file current! 
reset FQRCEinq, 

23. If the current record of the currently selected file has no 
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matchinq fields ao to steD 26 


24. Select the record and file with matchino fields with the 
hiahest orioritv (lowest in sequence if ascendinq). 

25. Request next record and qo to step 18 (Error) if selected 
record is not in seauence. 

26. Turn on the record identifvino indicator of the selected 
record, 

27. Test Break: If the current record contains control fields# a 
test for control break occurs. If no control break, ao to 
step 33 (Test End). 

28. Turn on indicators for all aDDrooriate control levels. Reset 
switch to bvoass totals (takes effect next cvcle). 

29. Go to step 33 (Test End) until after the first control break 
has been found. 

30. Last Cvcle: Turn on LR indicator and all control level 
indicators (L1-L9). 

31. Perform all total calculations whose enablinq conditions are 
met. Since I/O can be performed# set indicators as needed. 

32. Perform all enabled total outDut# process overflow as in step 
5. 

33. Test End: Go to step 39 (End-of-Job) if LR is on. 

34. Go to step 36 if the overflow indicator is off. 

35. Turn off the overflow switch. Perform overflow output only if 
overflow not previously fetched. 

36. Turn on the MR indicator if the primary file matches some 
secondary file. 

37. Move current input record to fields# settina resultina 
indicators. Request new read for current file. 

38. Perform detail calculations as in step 31. Go to step 5 
(Cycle). 
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Termination 

39. EQJ (End-of-Job): Close all files except table output files. 

90. For each table outoyt file# write out all tables and arrays 
reauested for the file# and then close the file. Exit to DOS 
after all table output. 
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He sat Indicators. Test LR 
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Record Input Sequence 


Error Routine 
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Select-Multiple Files, 
Matching 


Select-Multiple Files, 
No Matching 



APPENDIX B 


DETAILED RPG OBJECT FLOW B-7 
















Select-Single File, 
Matching 


SelectSingle File, 
No Matching 
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APPENDIX C. REFERENCE TABLES 


General System Organization 

The first Dart of the appendix lists the various components of the 
RPG II system and gives a brief description of the function 
performed bv each phase of the compiler.. The two-letter 
abbreviations appear during compilation in the upper right-hand 
corner of the display. 


1. Interface Program - common data and code. 

2. Enter Phases - read* list* and compress source, 

3. Assign Phases • allocate data storage. 

4. Diagnostic Phases - finish error checking. 

5. Generate Phases - generate oblect program operations for 
input* compute* output. 

6. Assembly and Library Phases - assemble obiect text* include 
necessary routines from library. 


Enter Phase Summary 

AA - Initialize system* read control card* list* compress and 
diagnose. 

AD - Process fi1e-descriptions - compress information* writing 
part of card on disk* building file-name table and in-core 
compression table with the rest of the information. 

AE - Process file-extension specifications - compress and write on 
disk. 

AF - Process line-counter specifications. 

AG - Process input specifications* generating record and field 
compressions. 

AK - Process calculation specifications - read* list* diagnose and 
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compress records 


AM * Process output specifications* generating record and field 
compressions, 

AZ • Process user library inclusion* and eomoile-time tables. 
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Assign Phase Summary 


CA - Assian, indicator storaae. 

CB - Generate indicator table for 'DEBUG' ©Derations. 

CC - Def'ine and assian control field storage. 

CD - Assian file workina areas. 

CE - Define and assian match field storaae. 

CG - Scan extension# input and calculation compressions# define 
table and field storaqe# aenerate table storaqe. 

CH - Scan input# ca 1cu1 ation and output compressions# move 
definitions to compression records. 

Cl - Generate field storaae. 

CK - Scan calculation and output compressions# define literals and 
edit masks in core table. 

CL - Move literal definitions into compression records. 

CV - Generate literal definitions. 

Diagnostic Phase Summary 
FC - Diaqnose file-descriptions. 

FG - Diaqnose calculation specifications# check use pf table and 
arrays in calculations# check arithmetic precision. 

FK - Diaqnose and oreproeess input specifications. 

FI - Diaqnose and oreproeess output specifications. 

FM - Diaqnose file referencing errors, 

GA - List error notes in order bv line number. 

GB to GO - List error texts as needed. 
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GX • End error text listing* call phase 11 if fatal error 
occurred. 

Generation Phase Summary 

Input Generation Phases* 

MB - Generate control field compare. 

ME • Generate control field moves. 

MG - Generate match field moves. 

MK - Generate input field processors. 

MP - Generate inout# record-tests# and select routines. 

MG - Generate input mainline# end test# and file select seauences 

Calculation Generation Phases* 

PA - Generate arithmetic and character (bvte) seauences. 

PX - Generate detail calculation mainline. 

PY - Generate total calcutation mainline. 

PZ - Generate RPG subroutines. Phases PX# PY# and PZ generate 

calculation control code and the code for other operators. 

Output Generation Phases* 

SA - Generate output field processors. 

SO - Generate headi na/detai1 output mainline. 

SP - Generate total output mainline. 

SQ • Generate overflow output processor. 

SR • Generate exception cutout processor. 
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SS - Generate Dut routines 


Final Generation Phases: 


UA - Generate file description blocks. 

UF - Generate ooen mainline. 

UG - Generate end mainline. 

UU - Generate assembly parameters. 

UV - Lime aenerated seaments with the fixed library. 

Assembly Phases: 

wA - Initialize assembly# set uo symbol table. 

WM - Assembly passes 1 and i . 

AL - Scan library and include referenced seament s. 

WS - Sort dictionary. 

W U - Die. t ionary listinq. 

wx - Cross reference sort and listino. 

ZZ - RPG Close phase. 

PPG Preprocessor; 

(PP) - Preorocess ASM text to object text. 
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Standard Tape Label Format 

Name Description 

VQL1 Volume Label 

HDR1 Header Label 1 

HDR2 Header Label 2 

File Mark 

Data 

File Mark 

EQF1 Trailer Label 1 

E0F2 Tral1er Label 2 

File Mark 
File Mark 
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Volume Label Format 


Co 1umns 

l-« 

5-80 


Format 

1-3 

a 

S-Stt 

55-6Q 

61-80 


format 

I- 3 

a 

5 

6-10 

II- 15 


Content s 


Description 


VQll Labe) Identifier 

Arbitrary Volume Identification 


of Label 1 

HDR 

EOF 

1 

Arbit rarv 
Number 
000000 
Arbitrary 


Header Label Identifier 
Trailer Label Identifier 
Label Number 
Data Identification 
Block Count (Trailer) 
Zero (Header) 

Data I dentification 


of Labe 1 2 

HDR 

EOF 

2 

F 

Number 

Number 


Header Label Identifier 
Trailer Label Identifier 
Labe) Number 
Fixed Format 
Block Length 
Record Lenqth 
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16 2 

17 0 

18"*34 Arbitrary 

35*80 Blank 


800 BPI Density 
No Volume Switch, 

Job Steo Identification 
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Format of File Description Blocks 

A partial description of,the format of a file description block is 
given symbolically in this sectipn. For a complete and absolute 
listing look at an assembly listina of the second object oroaram 
seompnt. All symbols defined below have blank dualificat1on? and 
are input to the ore-processor as 'jXXXXXX*. Symbols beginning 
with the letter 'D' are bvte displacements relative to the start 
of an FDB entry. Symbols beqinninq with 'M' are masks for parts 
of a byte. For example the displacement of the two-bvte record 
length is 'DRLNFD'» and the mask for the end-of-file flaa is 
'MEOFFD'. 

Name Purpose 

DFLGFD Displacement of the three-byte f1aq field. 

------First F1aq Bvte------ 

MEOFFD End of file. 

MCLSFD File closed. 

MPUTFD Output record ready for update or chained output file. 

Output oendino. 

MPBFFD Buffer output pending (update files). 

MADDFD ADD file. 

------Second F1aq Bvte------ 

MCHNFD CHAIN file. 

MWACFD Output/Update file. 

MRACFD Inout/Update file 

------Third Flao Byte-------- 

MISAFD Indexed (ISAM) File. 

------Basic Description------ 

DRLNFD Logical record length (two-bytes - MSB#LSB). 

DBLFFD Blocking factor (one-byte). 
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DFKAFD 


Address of File (record) Worklna Area (two»bvtes • 
USB,MSB). 

OFNMFD Address of Internal file name (LSBrMSB) 
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Format of Table Descriotion Blocks 

The format of table description blocks is given symbolically in 
this,section. For an absolute listing look at the assembly 
listinq for the segment named 'COMMON TABLE PROCESSOR'. The 
conventions are the same as for file description blocks. 


Name 

Purpose 





DTHATD 

Address 

of 

table/arrav storage area 

(t wo-bvt es 


LSB/MSB) 

• 




DFLDTD 

Address 

of 

current 

selected entry (LSB/MSB), 

DNELTD 

Number of 

e1ement s 

(two-bvtes * MSB/ 

LSB) . 

DELNTD 

Length of 

an element (one-byte). 


DCENTD 

Index of 

current entry (two-bvtes - 

MSB/LSB) . 

DCEATD 

Address 

of 

current 

entry (two-bvtes 

- LSB/MSB) 


Note* Bv convention/ addresses are stored in the 
1east-sianifleant/ then the most-significant bvte order/ whereas 
two-byte binary numbers are stored in the most **s 1 ani f i cant / 

1 east-siqn1ficant order. 
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ASCII to EBCDIC Translation Table 


MSH 

T C U 1 

40 

60 

100 

120 

140 

160 

200 

220 

240 

260 

300 

320 

340 

360 

Jjo ft 1 

OUO 1 

SP 

0 

0 

P 

\ 

P 

40 

60 

101 

121 

104 

124 

144 

164 

001 1 

1 

• 

1 

A 

Q 

a 

q 

41 

61 

102 

122 

10b 

12b 

14b 

16 b 

002 | 

• t 

2 

B 

R 

, E) 

r 

42 

62 

103 

123 

106 

126 

146 

166 

003 | 

# 

3 

C 

S 

c 

s 

43 

63 

110 

130 

10 7 

12 7 

14 i 

lb 7 

004 | 

s 

4 

D 

T 

a 

t 

44 

64 

111 

131 

212 

232 

2 52 

27 2 

00b | 

% 

b 

E 

U 

e 

u 

4b 

65 

142 

160 

213 

233 

2b 3 

27 3 

006 | 

& 

6 

F 

V 

f 

V 

46 

66 

143 

161 

214 

234 

2b4 

27 4 

007 | 


7 

G 

w 

g 

w 

47 

67 

lbO 

162 

21b 

23b 

2bb 

27 b 

010 | 

( 

b 

H 

X 

h 

X 

bO 

70 

1 bl 

163 

216 

236 

2b6 

27 6 

Oil | 

) 

9 

I 

Y 

i 

y 

bl 

71 

200 

17 0 

217 

23 7 

2b 7 

27 7 

012 | 

A 

• 

• 

J 

Z 

j 

z 

b2 

72 

220 

171 

312 

332 

3b2 

37 2 

013 | 

+ 

• 

i 

K 

[ 

k 

{ 

b3 

73 

240 

241 

313 

333 

3b3 

37 3 

014 | 

f 

< 

L 

\ 

1 

I 

b4 

74 

264 

2 70 

314 

334 

3b4 

374 

01b | 

- 

= 

M 

1 

m 

> 

bb 

7 b 

26b 

271 

31b 

33b 

3bb 

37 b 

016 | 

m 

> 

N 


n 

*■ 

b6 

76 

2 66 

340 

316 

336 

3b6 

37 6 

017 | 

/ 

7 

O 


o 

DEL 

b7 

77 

26 7 

341 

317 

337 

3b 7 

37 7 


EBCDIC to ASCII Translation Table 


MSH 

T CLI 


40 

60 

100 

120 

140 

160 

200 

220 

240 

260 

300 

320 

340 

360 

000 

I 

200 

220 

SP 

& 

— 

2bb 

2bl 

2b2 

2b3 

t 

{ 

>• 

27 b 

0 

001 

1 

2 01 

221 

2 40 

260 

/ 

256 

a 

3 

2 73 


A 

J 

277 

1 

002 

1 

202 

222 

241 

261 

24b 

2b / 

b 

k 

s 

) 

B 

K 

S 

2 

003 

1 

2 03 

223 

2 42 

262 

246 

27 0 

c 

1 

t 

\ 

c 

L 

T 

3 

004 

1 

204 

224 

300 

320 

340 

360 

d 

m 

u 

2b4 

D 

M 

U 

4 

00b 

1 

20b 

22b 

3 01 

321 

341 

361 

e 

n 

V 

2bb 

E 

N 

V 

5 

006 

I 

206 

226 

302 

322 

342 

362 

f 

o 

w 

2b6 

F 

O 

w 

6 

0 07 


207 

2 27 

303 

323 

343 

363 

g 

p 

X 

2b7 

G 

P 

X 

7 

010 

1 

210 

230 

243 

263 

24 7 

271 

h 

q 

y 

27 4 

H 

Q 

Y 

b 

Oil 

1 

211 

231 

244 

264 

2b0 

27 2 


r 

z 

27 b 

I 

R 

Z 

y 

012 

1 

212 

232 

% 

i 

DEL 

l 

304 

324 

344 

364 

312 

332 

3b2 

37 2 

013 

1 

213 

2 33 

m 

$ 

t 

ff 

30b 

32b 

34 b 

36b 

313 

3 33 

3b3 

37 3 

014 

I 

214 

, 234 

,< 

A 

% 

0 

306 

326 

346 

366 

314 

334 

3b4 

37 4 

01b 

1 

21b 

23b 

( 

) 


* 

3 07 

3 27 

3 47 

3 67 

31b 

33b 

3 bb 

37 5 

01b 

t 

216 

236 

+ 

0 

> 


310 

330 

3b 0 

37 0 

316 

336 

356 

37 6 

017 

i 

217 

237 

i 


? 


311 

331 

3 bl 

3 71 

317 

3 37 

3 57 

37 7 


012 
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NOTE: MSHx Most Significant Half 
LSH = Least Significant Half 

For example: MSH (240) ♦ LSH (013) = Q2S3 

Values between 000 and 037 map into themselves. 
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APPENDIX D. COMPILE TIME MESSAGES 


pd Text 

CC7-9 SHOULD BE BLANK. 

INVALID CORE SIZE# CC12-14. 

INVALID DEBUG CODE# CIS. 

CC16-25 SHOULD BE BLANK. 

INVALID OR BLANK FILE NAME, CC7-14. 

INVALID OR BLANK FILE TYPE, CIS. 

INVALID OR BLANK FILE DESIGNATION, C16. 

INVALID PROCESS TO END OF FILE ENTRY, C17. 

SEQUENCE ENTRY INVALID, OR SPECIFIED WITH FILE TYPE 
NOT PRIMARY OR SECONDARY, CIS. 

INVALID FORMAT ENTRY, C19. 

INVALID BLOCK LENGTH, CC20-23. 

INVALID RECORD LENGTH, CC24-27. 

INVALID MODE OF PROCESSING PROCESSING ENTRY, C26. 
CC29-31 SHOULD BE BLANK. 

INVALID OVERFLOW ENTRY, CC33-34. 

OVERFLOW SPECIFIED WITH DEVICE OTHER THAN PRINTER, 
CC 33-34. 

CC35-36 SHOULD BE BLANK. 

INVALID EXTENSION OR LINE COUNTER ENTRY, C39. 

LINE COUNTER SPECIFIED WITH DEVICE OTHER THAN 
PRINTER, C39. 
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20 F 

21 M 

22 W 

23 W 
2a w 

25 W 

26 M 

27 W 

28 W 

29 W 

30 W 

31 N 

32 W 

33 M 
3a w 

35 F 

36 F 

37 F 

38 F 

39 F 
ao F 
41 F 


F INVALID DEVICE CODE, CCaO-a6. 

F CC97-52 SHOULD BE BLANK. 

F ' CC53-59 SHOULD BE BLANK UNLESS DEVICE SPECIFIED AS 
'SPECIAL'. 

F v INVALID 'K' ENTRY, C53. 

F INVALID UNLESS SPECIAL DEVICE NAME, CC5a-59. 

F INVALID NAME FOR SPECIAL DEVICE I/O ROUTINE, 

CC5a-59. 

F ' CC60-65 SHOULD BE BLANK. 

F C66 SHOULD BE BLANK. 

F INVALID ADDITIONS ENTRY, C66. 

F CC67-69 SHOULD BE BLANK. 

F C70 SHOULD BE BLANK UNLESS TAPE DEVICE. 

F INVALID REWIND OPTION, C70. 

F INVALID FILE CONDITION ENTRY, CC71-72. 

F CC73-7a SHOULD BE BLANK. 

E CC7-10 SHOULD BE BLANK. 

E INVALID OR UNRECOGNIZABLE 'FROM' FILE NAME, 

CC11— 18. 

E INVALID OR UNRECOGNIZABLE 'TO' FILE NAME, CC19-26. 
f CHAINED, INDEXED OUTPUT FILE C66 MUST BE A. 

E INVALID TABLE/ARRAY NAME, CC27-32. 

E INVALID NUMBER OF ENTRIES PER RECORD, CC33-35. 

E INVALID NUMBER OF ENTRIES FOR TABLE/ARRAY, CC36-39. 

E INVALID LENGTH OF ENTRY, CCa0-a2 OR CC52-54. 
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42 W E INVALID FORMAT ENTRY, C43 OR C55 - IGNORED. 

43 F E INVALID DECIMAL POSITIONS ENTRY, C44 OR C56. 

44 W E INVALID SEQUENCE ENTRY, C45 OR C57 - IGNORED. 

45 F E INVALID ALTERNATE TABLE NAME, CC46-51. 

46 F E EXECUTION-TIME TABLES NOT ALLOWED. 

47 F E ALTERNATE TABLE SPECIFICATION NOT ALLOWED WITH 

EXECUTION-TIME ARRAYS. 

48 F E 'FROM' FILE MUST BE AN INPUT-TABLE FILE. 

49 F E 'TO' FILE MUST BE ORDINARY OUTPUT OR OUTPUT-TABLE 

FILE. 

50 F E 'FROM' FILE TOO SHORT FOR TABLE RECORD. 

51 F E 'TO' FILE TOO SHORT FOR TABLE RECORD. 

52 F E MORE THAN 8192 BYTES OF TABLE STORAGE ALLOCATED. 

53 W H INVALID COLLATE SEQUENCE ENTRY, CC26. 

54 W H CC27-74 SHOULD BE BLANK. 

55 F L INVALID OR UNDEFINED FILE NAME, CC7-14. 

56 F L FILE MUST BE ASSIGNED TO THE PRINTER. 

57 F L FORM LENGTH, CC15-17, INVALID OR >99. 

58 W L CC18-19 SHOULD CONTAIN 'FL'. 

59 F L OVERFLOW LINE, CC20-22, INVALID OR >99. 

60 W L CC23-24 SHOULD CONTAIN 'OL'. 

61 W L CC25-74 SHOULD BE BLANK. 

62 F L OVERFLOW LINE IS GREATER THAN FORM LENGTH. 

63 F L MULTIPLE LINE COUNTER SPECIFICATION LINES. 

64-65 UNASSIGNED. 
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66 

67 

66 

69 

70 

71 

72 

73 

7 « 

75 

76 

77 

78 

79 

80 
81 
82 
83 

6a 

85 

86 

87 

88 


F I MIXED RECORD AND FIELD DATA* CC7-a2, a3-7a. 

W I CC7-ia SHOULD BE BLANK FOR 'AND' AND 'OR' CARDS. 

F I FILE NAME* CC7-ia* NOT SPECIFIED IN FILES SECTION. 

F I INVALID SEQUENCE ENTRY* CC15-16. 

W I INVALID SEQUENCE ENTRY* C17. 

W I INVALID OPTIONAL SEQUENCE ENTRY* CIS. 

rt I INVALID RECORD INDENTIFYING INDICATOR* CC19-2Q. 

F I INCOMPLETE RECORD INDENTIFYING CODE* CC25-27* 

CC32-3a* OR CC39-ai. 

F I INVALID POSITION ENTRY* C2a* 31 OR 38. 

W I INVALID NOT ENTRY* C25* 32 OR 39. 

H I INVALID C/Z/D ENTRY* C26* 33 OR 40. 

W I STACKER SELECT NOT IMPLEMENTED* Ca2. 

W I INVALID FORMAT ENTRY* Ca3. 

f i invalid from location entry* ccaa-a7. 

F I INVALID 'TO' LOCATION ENTRY* CCa8-51. 

F I NEGATIVE FIELD LENGTH* CCaa-5l. 

F I INVALID DECIMAL POSITION ENTRY* C52. 

F I INVALID FIELD NAME, CC53-58. 

F I INVALID CONTROL LEVEL ENTRY, CC59-60. 

F I INVALID MATCH FIELD ENTRY, CC61-62. 

F I INVALID FIELD RECORD RELATION ENTRY* CC63«6a. 

F I INVALID FIELD INDICATOR(S)* CC65-70. 

W I CC71-7a SHOULD BE BLANK. 
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89 


UNASSIGNED 


90 F 

91 F 

92 F 

93 F 

94 F 

95 F 

96 F 

97 W 

98 F 

99 F 

100 F 

101 F 

102 F 

103 F 

104 F 

105 F 

106 F 

107 F 

108 W 

109 F 

110 F 


C INVALID ENTRY IN CC7-8. 

C INVALID NOT ENTRY IN CC9, 12, 13. 

C INVALID INDICATOR IN CC10-U, CC13-14, OR CC16-18. 

C INVALID FACTOR 1 ENTRY, CC18-27. 

C UNRECOGNIZABLE OPERATION, CC28-32. 

C INVALID FACTOR 2 ENTRY, CC33-42. 

C INVALID RESULT FIELD, CC43-48. 

C HALF-ADJUST ENTRY IN C53 UNRECOGNIZABLE OR NOT 
ALLOWED. 

C INVALID RESULT INDICATOR ENTRY, CC54-59. 

C INVALID LENGTH IN CC49-51. 

C DECIMAL POSITIONS INVALID, C52. 

C CC49-52 SHOULD BE BLANK IF NO RESULT FIELD IS 
SPECIFIED. 

C INVALID FILE NAME IN CC33-42. 

C INVALID LITERAL SPECIFICATION. 

C INVALID BIT MASK, CC33-42. 

C CONDITION INDICATORS NOT ALLOWED WITH 'TAG', 

'RLABL', 'BEGSR ' , OR 'ENDSR' OPERATIONS. 

F INVALID KEY LENGTH, CC29-30. 

F INVALID KEY STARTING POSITION, CC35-38. 

F ISAM OUTPUT FILE MUST BE "INDEXED" AFTER CREATION. 

F SEQUENTIAL WITHIN LIMITS VALID ON INDEXED FILES, 

C28. 

0 RECORD AND FIELD DATA IN SAME LINE. 
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111 F 0 INVALID OR UNSPECIFIED FILE NAME# CC7-14. 

112 F 0 INVALID 'AND' OR 'OR' ENTRY# CC14-16. 

113 W 0 CC17-22 SHOULD BE BLANK ON 'AND' OR 'OR' LINES. 

114 F 0 INVALID LINE TYPE# C15. 

115 W 0 INVALID FETCH OVERFLOW ENTRY# C16. 

116 W 0 INVALID 'SPACE BEFORE' ENTRY# C17. 

117 W 0 INVALID 'SPACE AFTER' ENTRY# C18. 

118 W 0 INVALID 'SKIP BEFORE' ENTRY# CC19-20. 

119 W 0 INVALID 'SKIP AFTER' ENTRY# CC21-22. 

120 W 0 INVALID 'NOT' ENTRY# C23# 2b# OR 29. 

121 F 0 INVALID FIELD CONDITIONING INDICATOR. 

122 F 0 INVALID FIELD NAME. 

123 F 0 INVALID EDIT CODE# C38. 

124 W 0 C38 SHOULD BE BLANK IF NO FIELD NAME SPECIFIED. 

125 W 0 INVALID 'BLANK AFTER' ENTRY# C39. 

126 F 0 INVALID END POSITION ENTRY# CC40-43. 

127 W 0 INVALID DATABUS FORMAT ENTRY# C44. 

128 W 0 C44 SHOULD BE BLANK IF NO FIELD NAME SPECIFIED. 

129 W 0 LITERAL NOT STARTED WITH A QUOTE# C45. 

130 F 0 EMBEDDED SINGLE QUOTE# CC45-70. 

131 F 0 REMAINDER OF CC45-70 NOT BLANK AFTER LITERAL. 

132 W 0 LITERAL TOO LONG# CC70-80. 

133 W 0 INVALID COMBINATIONS OF $ AND * IN CC45-47. 

134 W 0 CC45-47 NOT $# *# OR BLANK.. 
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135 M 0 INVALID EDIT WORD. 

136 W 0 CC71-74 SHOULD BE BLANK. 

137 M H MULTIPLE HEADER CARDS. 

138 W H INVALID ENTRY, CIO. 

139 W H INVALID ENTRY, C11 . 

140 W F FILE NAME TABLE FULL. 

141 W F DUPLICATE FILE NAME, CC7-14. 

142 W F INVALID TYPE FOR GIVEN DEVICE CODE, CIS. 

143 M F INVALID DESIGNATION FOR GIVEN DEVICE CODE, Clfe. 

144 W F INVALID FILE FORMAT FOR THIS DEVICE, C19. 

145 W F BLOCKING FACTOR GREATER THAN 255, CC20-27. 

146 W F BLOCK LENGTH LESS THAN RECORD LENGTH, CC20-27. 

147 W F BLOCK LENGTH NOT A MULTIPLE OF RECORD LENGTH, 

CC20-27. 

148 F F BLOCK LENGTH GREATER THAN ALLOWED FOR GIVEN DEVICE, 

CC20-23. 

149 W F BLOCK LENGTH NOT EQUAL TO RECORD LENGTH, CC20-27. 

150 F F NO FILE DESCRIPTION SPECIFICATIONS. 

151 F F NO PRIMARY OR SECONDARY FILE SPECIFIED. 

152 W F SECONDARY FILE PRECEDES PRIMARY FILE. 

153 W F MULTIPLE PRIMARY FILES. SECONDARY ASSUMED. 

154 W F; AN EXTENSION, C39, MUST BE SPECIFIED FOR TABLE 

FILES. 

155 W F EXTENSION, C39, INVALID WITH GIVEN DEVICE OR 

NON-TABLE FILE. 

156 F F DEVICE ASSIGNED TO MORE THAN ONE FILE. 
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157 W F 

158 W F 

159 F F 

160 W F 

161 F V 

162 W F 

163 F F 

16a W F 

165 F F 

166 W F 

167 F F 

168 F F 

169 W F 

170 F F 

171 

172 W F 

173 W F 

174 W F 

175 W F 

176 F F 

177 F F 


CONDITION INDICATOR, CC71-72, INVALID FOR TABLE 
FILE. 

FILE NAME ASSIGNED BUT NEVER USED IN PROPER 
SECTION. 

SEQUENCE, C18, INVALID WITH NO MATCH FIELDS. 

SEQUENCE, C18, MUST BE SPECIFIED WITH MATCH FIELDS 

EXTENSION OR LINE COUNTER SPECIFICATION MISSING, 

C 39. 

EXTENSION OR LINE COUNTER SPECIFICATION FOUND FOR ' 
THIS FILE, BUT C39 IS NOT 'E' OR 'L'. 

OUTPUT REFERENCE REQUIRED FOR UPDATE FILE. 

CC7-52 ON CONTINUATION CARD SHOULD BE BLANK. 

CC5a-59 ON CONTINUATION CARD NOT EQUAL 'ASCII'. 

C.C60-74 ON CONTINUATION CARD SHOULD BE BLANK. 

TAPE RECORD LENGTH LESS THAN 18. 

ADDITIONS INVALID FOR FILE OR DEVICE, C66. 

ALL PRIMARY AND SECONDARY FILES CONDITIONED. 

CALCULATION REFERENCE REQUIRED FOR CHAIN OR DEMAND 
FILES. 

UNASSIGNED. 

INVALID ENTRY IN C53. 'A' ASSUMED. 

INVALID LABEL EXIT. 

C53 SHOULD BE BLANK. 

CC60-65 SHOULD BE BLANK ON ASCII CARD. 
UNRECOGNIZABLE DISK CONTINUATION OPTION IN CC5a-59 
UNRECOGNIZABLE ENTRY IN CC60-65. 
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UNASSIGNED 


178 

179 w F 

180 M F 

181 F F 

182 F F 

183 F F 

18 a F F 

185 F F 

186 F F 

187 F F 

188 F F 

189 F F 

190 W F 

191-193 
19a F E 

195 F E 

196 F E 

197 F E 

198 F E 


VARIABLE BLOCKING INVALID FOR THIS FILE TYPE* FIXED 
BLOCKING ASSUMED. 

CC31-32 SHOULD CONTAIN 'I ' OR 'AI' FOR RANDOM 
PROCESSING. 

CC29-32 SHOULD CONTAIN ' 3IT' FOR ADDROUT FILES. 

ADDROUT FILES MUST BE FIXED-FORMAT* UNBLOCKED FILES 
WITH RECORD LENGTH EQUAL TO 3. 

THIS FILE MUST BE CONTROLLED BY AN ADDROUT FILE. 

ADDROUT FILE MUST CONTROL A PRIMARY/SECONDARY FILE. 

CORRESPONDING ADDROUT AND PRIMARY/SECONDARY FILES 
MUST HAVE THE SAME EXTERNAL INDICATOR CONDITION. 

UNRECOGNIZABLE PRINTER CONTINUATION. 

RECORD ADDRESS TYPE AND FILE ORGANIZATION ENTRIES 
ARE INCOMPATABLE, CC31-32. 

UNRECOGNIZABLE RECORD ADDRESS TYPE, CC31. 

UNRECOGNIZABLE FILE ORGANIZATION, C32. 

CC29-30 SHOULD BE BLANK FOR FILE PROCESSED BY 
ADDROUT FILE. 

UNASSIGNED 

MORE THAN ONE ADDROUT FILE CONTROLS THIS 
PRIMARY/SECONDARY FILE. 

MORE THAN ONE PRIMARY/SECONDARY FILE IS CONTROLLED 
BY THIS ADDROUT FILE. 

'FROM' FILE MUST BE AN ADDROUT FILE. 

'TO' FILE MUST BE A RANDOMLY-PROCESSED 
PRIMARY/SECONDARY FILE. 

TOO MANY TABLES DEFINED. 
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199 


F 

200 F 

201 F 

202 F 

203 F 
209 F 

205 F 

206 F 

207 F 

208 F 

209 F 

210 F 

211 F 

212 F 

213 

219 W 

215 W 

216 W 

217 F 

218 M 

219 W 

220 F 


! 

E MULTIPLE TABLE DEFINITIONS. 

I NO INPUT SPECIFICATION SECTION. 

I FIELD PRECEDES FIRST RECORD. 

I FILE ASSIGNED IS NOT AN INPUT OR UPDATE FILE. 

I MORE THAN 256 INPUT RECORD TYPES SPECIFIED. 

I INPUT RECORDS MUST BE DESCRIBED IN SAME ORDER AS 

FILES. 

I CONTROL LEVEL SPECIFICATION INVALID WITH FILE TYPE. 
I MATCH FIELD SPECIFICATION INVALID WITH FILE TYPE. 

I MORE THAN 255 RECORD ID TESTS FOR THIS RECORD. 

I FIRST LINE IS AN 'AND' OR 'OR' LINE. 

I MULTIPLY DEFINED FIELD. 

I LENGTH OF CONTROL FIELDS GREATER THAN 255 BYTES. 

I LENGTH OF MATCH FIELDS GREATER THAN 255 BYTES. 

I MORE THAN 32 'AND' LINES. 

UNASSIGNED. 

I 'AND' LINE FOLLOWS LINE WITHOUT RECORD ID CODES. 

I NO FIELDS DESCRIBED FOR PREVIOUS RECORD. 

I NUMERIC SEQUENCE ENTRIES NOT IN ORDER, OR FIRST 
ENTRY NOT EQUAL 01. 

I CC17-18 SHOULD BE BLANK FOR ALPHABETIC SEQUENCE. 

I CC17*20 SHOULD BE BLANK FOR 'AND' LINES. 

I CC17-18 SHOULD BE BLANK FOR 'OR' LINES. 

I LENGTH OF NUMERIC FIELD GREATER THAN 15, OR LENGTH 

OF ALPHABETIC FIELD GREATER THAN 255. 
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221 


W 

222 F 

223 F 
22a F 

225 F 

226 F 

227 F 

228 F 

229 F 

230 F 

231 F 

232 F 

233 F 
23a w 

235 F 

236 F 

237 F 

238 F 

239 w 


I DECIMAL POSITION ENTRY INVALID FOR ARRAY. 

I NUMBER OF DECIMAL POSITIONS EXCEEDS FIELD LENGTH. 

I TABLE NAME INVALID FOR A FIELD NAME. 

I 'AND' LINES INVALID WITH LOOK-AHEAD RECORD. 

I CC17-18# 21-a2, AND 59-7A INVALID WITH LOOK-AHEAD. 

I FIELD LOCATION ENTRIES EXCEED RECORD LENGTH. 

I FIELD NAME IS A RESERVED WORD OTHER THAN 'PAGE'. 

I CONTROL AND MATCH SPECIFICATIONS INVALID FOR 
ARRAYS. 

I LOOK-AHEAD INVALID WITH CHAIN OR DEMAND FILES OR 
WITH THIS DEVICE. 

I NO FIELDS SPECIFIED FOR LOOK-AHEAD RECORD. 

I ARRAY LENGTH EXCEEDS OR IS NUT A MULTIPLE OF LENGTH 

IN EXTENSION SPECIFICATION. 

I INCONSISTENT LENGTHS FOR CONTROL OR MATCHING FIELDS 

OF ONE LEVEL. 

I INVALID SPLIT CONTROL FIELD SPECIFICATION. 

I CONTROL OR MATCHING FIELDS SPECIFIED AS ALPHA ANO 
NUMERIC. 

I ALL VALID MATCH LEVELS WERE NOT REFERENCED IN THE 
LAST RECORD GROUP. 

I CONTROL OR MATCH FIELDS WITHOUT FRR MUST PRECEDE 
THOSE WITH FRR. 

I CONTROL OR MATCH FIELDS WITH FRR MUST BE GROUPED BY 
FRR. 

I FIELD RECORD RELATION INDICATOR USED IMPROPERLY 
WITH CONTROL OR MATCH FIELDS. 

I INDICATOR ASSIGNED BUT NOT USED, 
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240 F 

241 F 

242 F 

243 F 
244-249 

250 F 

251 F 

252 F 

253 F 

254 F 

255 W 

256 F 

257 F 

258 F 

259 W 

260 F 

261 F 

262 F 

263 F 

264 F 

265 F 

266 F 

267 F 


I INDICATOR USED, BUT NOT ASSIGNED. 

I FIELD LENGTH NOT MULTIPLE OF TABLE ENTRY LENGTH. 
INDEX FIELD NOT NUMERIC OR DECIMAL POSITIONS > 0. 
LITERAL INDEX OUT-OF-BOUNDS. 

UNASSIGNED. 

C INVALID FILE FOR FORCE. 

C INVALID FILE FOR READ. 

C INVALID CHAINING FIELD. 

C INVALID FILE IN CHAIN. 

C DEBUG FILE NOT OUTPUT FILE. 

C DEBUG OPERATIONS IN PROGRAM IGNORED. 

C DEBUG OPTION WITHOUT DEBUG OPERATION. 

C DIFFERENT DEBUG FILES. 

C INVALID FILE FOR DSPLY. 

C CALCULATIONS CONSIST ONLY OF SUBROUTINES. 

C SUBROUTINE MUST BEGIN WITH 'BEGSR' OPERATION. 

C TOTAL OR DETAIL RECORD OUT OF SEQUENCE. 

C ARRAY IMPROPERLY USED IN RESULT FIELD, 

C FACTOR 1 OR 2 MAY NOT BE AN ARRAY UNLESS RESULT 

FIELD IS. 

C RECORD LENGTH FOR DEBUG FILE IS TOO SMALL. 

C FACTOR 1 IN 'DEBUG' SHOULD BE LESS THAN NINE BYTES 
LONG. 

C SUBROUTINE MUST END WITH 'ENDSR', 

C RESULT FIELD MUST BE ALPHANUMERIC. 
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268 F C FACTOR 2 MUST BE ALPHANUMERIC. 

269 F C FACTORS 1 & 2 MUST HAVE SAME TYPE. 

270 F C BIT OPERATIONS TAKE SINGLE-BYTE FIELDS. 

271 F C FACTOR 2 IN 'LOKUP' MUST BE A TABLE OR ARRAY. 

272 F C CORRESPONDING TABLE MAY NOT BE USED WITH ARRAY 

LOOK-UP. 

273 F C RESULT FIELD IN LOKUP MUST BE A TABLE. 

274 F C FACTOR 1 MUST HAVE SAME LENGTH AS FACTOR 2 IN 

LOOK-UP. 

275 F C '8EGSR' IN MIDDLE OF SUBROUTINE. 

276 F C 'RLABL ' MUST IMMEDIATELY FOLLOW 'EXIT'. 

277 F C INVALID LABEL OPERAND. 

278 F C 'BEGSR' OR 'ENDSR' IN DETAIL OR TOTAL RECORDS, 

279 F C FACTOR 1 MUST BE NUMERIC. 

280 F C FACTOR 2 MUST BE NUMERIC. 

281 F C RESULT FIELD MUST BE NUMERIC. 

282 W C HALF-ADJUST NOT NEEDED» ENTRY ASSUMED BLANK. 

283 W C COMPUTED RESULT MAY OVERFLOW RESULT FIELD. 

284 F C FACTOR 2 IN 'XFOOT' MUST BE AN ARRAY. 

285 F C 'MV R' MUST FOLLOW 'DIV'. 

286 F C HALF-ADJUST ON PREVIOUS 'DIV' ILLEGAL WITH 'MVR'. 

287 F C FACTOR 2 NOT A PROCESS WITHIN LIMITS FILE. 

288 F C FACTOR 1 IS NOT A VALID KEY. 

289-327 UNASSIGNED 

328 W 0 DATAPQINT COMPATIBLE FIELD SHOULD BE NUMERIC. 
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329 F 0 

330 F 0 

331 W 0 

332 W Q 

333 W 0 

334 F 0 

335 W 0 

336 F 0 

337 W 0 

338 W 0 

339 ft Q 

340 F 0 

341 F 0 

342 F 0 

343 F 0 

344 W 0 

345 M 0 

346 F 0 

347 F 0 

348 F 0 

349 F 0 


NEITHER FIELD NAME OR LITERAL IS PRESENT. 

'AND' OR 'OR' LINE NOT PRECEDED BY RECORD LINE. 

SPACE AND SKIP INVALID WITH DEVICE OTHER THAN 
CONSOLE OR PRINTER. 

SKIP ENTRY GREATER THAN FORM LENGTH. 

FETCH OVERFLOW INVALID FOR DEVICE OTHER THAN 
PRINTER. 

OVERFLOW INDICATOR INVALID FOR EXCEPTION LINE. 

FETCH OVERFLOW INVALID WITH OVERFLOW INDICATORS. 

OVERFLOW INDICATOR USED IS NOT ASSIGNED TO THIS 
FILE. 

IP INDICATOR INVALID ON TOTAL OR EXCEPTION LINES. 

FETCH OVERFLOW INVALID WITH IP INDICATOR. 

SPACE BEFORE OF 0 INVALID FOR CONSOLE. 

INVALID INDICATORS USED WITH IP INDICATOR. 

END POSITION GREATER THAN RECORD LENGTH. 

LENGTH OF ARRAY, ELEMENT, OR FIELD EXCEEDS RECORD 
LENGTH. 

END POSITION TOO LOW. 

ALL INDICATORS MISSING OR NEGATIVE IN PREVIOUS 
RECORD. 

ALL INDICATORS MISSING ON THIS LINE. 

INVALID EDIT WORD SIZE. 

EDIT CODE INVALID WITH ALPHA FIELD OR CONSTANTS 
OTHER THAN $ OR *. 

CONSTANT INVALID WITH EDIT CODES X, Y OR Z. 
INVALID FIELD LENGTH FOR Y EDIT CODE. 
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350 


F 

351 F 

352 W 

353 F 
35a W 

355 F 

356 W 

357 M 

358 F 

359 F 

360 F 

361 F 

362 W 

363 F 

364 W 

365 F 

366 F 

367 F 

368 

369 F 

370 F 

371 F 


0 DECIMAL POSITIONS INVALID WITH Y EDIT CODE. 

0 INVALID FILE TYPE FOR OUTPUT RECORD. 

0 BLANK AFTER INVALID WITH RESERVED WORD OTHER THAN 
'PAGE'. 

0 MORE THAN 32 'AND' OR 'OR' LINES. 

0 BLANK AFTER SPECIFIED FOR A CONSTANT. 

0 ARRAY INDEX EXCEEDS NUMBER OF ELEMENTS. 

0 BLANK AFTER INVALID WITH LOOK-AHEAD. 

0 INDICATOR ASSIGNED BUT NEVER USED. 

0 INDICATOR USED BUT NEVER ASSIGNED. 

0 FIELD NAME USED BUT NOT DEFINED. 

0 TABLE OR ARRAY NAME USED AS INDEX. 

0 NUMBER OF DECIMAL POSITIONS EXCEEDS FIELD LENGTH. 

0 L0-L9 IN 'OR' RELATIONSHIP WITH LR. 

0 ADDITIONS INVALID WITH 'AND' OR 'OR' LINES. 

0 FOR ADD FILES/ EACH RECORD MUST HAVE 'ADD' IN 

CC16-18. 

0 ADDITIONS INVALID WITH FILES EXCEPT SEQUENTIAL DISK 
FILES. 

0 'T' IN CIS/ OR E WITH L0-L9 INVALID WITH UPDATE 

FILES. 

0 FIELD LINE PRECEEDS FIRST RECORD LINE. 

UNASSIGNED. 

0 MORE THAN 255 OUTPUT RECORD TYPES SPECIFIED. 

0 NO OUTPUT SPECIFICATION SECTION FOUND. 

0 RECORDS MUST BE IN SAME ORDER AS FILES. 
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372 

F 

0 

H, 0# T AND E LINES MUST BE IN ORDER. 

373 

F 

0 

FIELD LENGTH DOES NOT CORRESPOND TO NUMBER OF 
' REPLACEABLE CHARACTERS IN EDIT WORD. 

374 

W 

□ 

EXCEPT RECORD WITHOUT 'EXCPT' OPERATION. 

375 

F 

0 

EDIT CODE INCOMPATIBLE WITH OPTIONS USED IN 

CC45-47• 

376 

F 

0 

NO REPLACEABLE CHARACTERS IN EDIT WORD. 

377 

F 

0 

FILE IS NOT A DISK ADD FILE, CC16-18. 

378- 

379 


UNASSIGNED. 

380 

W 


SEQUENCE NUMBERING ERROR IN SOURCE RECORDS, CC1-5. 
SEE NOTE BELOW. 

381 

F 


RECORD TYPE OUT OF SEQUENCE IN SOURCE RECORDS, C6. 

382 

F 


INVALID CHARACTERS IN (MAIN) OPERAND NAME. 

383 

F 


INVALID CHARACTERS IN INDEX OF OPERAND. 

384 

F 


INDEX IS INVALID WITH THIS OPERAND. 

385- 

399 


UNASSIGNED. 

400 

F 


SEQUENCE ERROR IN COMPILE-TIME TABLE OR ARRAY. 

401 

F 


NUMERIC FIELD ERROR IN COMPILE-TIME TABLE OR ARRAY 

402 

W 


END OF FILE FOLLOWS '**b' RECORD. 

403 

F 


NO FILE NAME IN LIBRARY INCLUSION RECORD. 

404 

F 


USER LIBARY FILE DOES NOT EXIST. 

405 

W 


DELIMITER CARD FORMAT ERROR. 

406 

w 


SHORT COMPILE-TIME TABLE OR ARRAY. 

407 

F 


TABLE/ARRAY FILLED. 

408 

F 


ALTERNATE TABLE BUFFER FULL. 
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409 W NO ' **b ' RECORD FOLLOWS LIBRARY INCLUSION RECORD. 

410 w NO COMPILE-TIME TABLE/ARRAY FOR DATA. 

411 W INVALID LIBRARY FILE NAME. 

412 F COMPILE-TIME TABLE/ARRAY DATA RECORD LENGTH > 80. 


***NUMBER FOR CONVERSION WON'T FIT-This is an 
indication 

that the RPG II Compiler has failed. Reoort problem 
to Dataooint. 

NOTE: A SEQUENCE ERROR WILL OCCUR IF A BLANK RECORD 
IS PRESENT IN THE SOURCE CODE. 
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APPENDIX E. OBJECT TIME MESSAGES 


Durinq the execution of an RPG II oblect program messages 
will be displayed on the screen either to request input from the 
user or merely to inform him of certain actions beinq performed. 
In addition# error messaaes will be displayed if abnormal 
situations are encountered. The following list of messaaes are 
all those which could possibly occur durinq an RPG II object 
proqram execution. The list includes an explanation of each 
message# the action taken bv the object p roaram after displaying^ 
the messaae# and an explanation of the response from the user# if 
necessary. Note that any data typed in by the user must be 
terminated with the ENTER key. 


OTMOl: *** INVALID INPUT 

Explanations Error messaqe displayed if the data given 

in response to either the DATE message (QTM23) or 
the INDICATOR messaqe (0TM24) is not in the 
correct format. 


Proqram Action: The appropriate reauest for data is made 

again. 


User Response: None. 


QTM02; 

Explanations 

Program Action; 
User Response: 


ABSENT RECORD AND NO INDICATOR 

Error message displayed if a record was not 
found durinq a CHAIN operation and no indicator 
was specified in columns 54-55. 

Display messaae OTMIO. 

None. 
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QTM03: 

Exolanation : 

Program Action; 
User Resoonse: 


QTM04: 

Explanation: 

Program Action: 
User Response: 


OTM05: 

ExpJ anat ion: 

Program Action: 
User Response: 


ASC/BIN ERROR 

Error messaqe displayed whenever an AS£II 
numeric strinq# being conyerted to an internal 
binary number# contains either no digits or more 
than 6 digits. 

Display messaqe OTMIO. 

None. 


ATTEMPT TO READ PAST END OR FROM CLOSED FILE 

Error messaqe displayed if the READ 
operation was attempted on a file which was at 
end-of-file or was closed. 

Display messaqe OTMIO. 

None. 


(BAD FILE SPEC) 

.... » ■ v - 

Error messaqe displayed if a specification . 
of a file durinq the file opening sequence is 
incorrect. 

A file name will be asked for aqain. 

A correct file name should be entered. 
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OTM06 S 


BAD RECORD NUMBER 


Explanati on: 

Proqram Actions 

User Response: 

OTM07S 

Explanat1 on: 

Program Action! 
User Response: 


OTM06; 

Exolanat1 on: 

Program Action: 
User Response: 


Error message displayed if a disk access is 
attempted to a record number less than zero or to 
a record number above the currently allocated 
space. 

Display the proaram name of the file and 
then message 0TM1Q. 

None. 


BAD TABLE UR ARRAY SEQUENCE 

Error message displayed if the sequence of 
data being read into a ore-execution time table 
or array is not as specified on the Extension' 
Specs. 

Display messaqe GTM1Q. 

None. 


BIN/ASC ERROR 

Error message displayed whenever an ASCII 
numeric string* destined to receive a converted 
binary value* is of zero length. 

Display messaqe OTMlO. 

None. 
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QTM09 j 

Exolanation: 

Program Action: 
User Response: 


OTMIO: 

Exolanation: 

Program Action: 
Usep Response: 


OTMU: 

Explanation: 

Program Action: 
Usep Response: 


BIN/DEC ERROR 

Error message disolaved if the lenath of a 
field being used to stone an index aftep an.array 
LOKUP ooepation is not Iona enough to contain the 
pesult. 

Display messaqe OTMIO. 

None. 


BYPASS/CANCEL/ABORT 

General error message disolaved after many 
other specific error messages to oive the user 
the option as to what action should be taken bv 
the program. 

Wait fop input. 

Three different responses are allowed. 

Typing a 'B # will cause the program to bypass the 
current cycle and read the next record. Typing a 
*C f will cancel program execution and close all 
the files. Tvoina an 'A # will immediately return 
control to the operating system without closing 
any files. 


CANCEL/ABORT 

Similar to QTM1Q. Displayed in lieu of it 
if the program is in the last cycle. 

Wait for input. 

Same as for OTMIO and QTM55* except the 'R' 
and 'B' responses are not valid. 
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0TM12S 

Exp1anation: 

Program Actions 
User Response: 


0TM13: 

Exolanation: 

Proqram Action: 

User Response: 

0TM14: 

Exp 1anation: 

Program Action: 
User Response: 


CANNOT LOAD ISAM OVERLAY 

Error message displayed if the program 
tries to load the overlay RPGISA/QV1 to add 
records to an indexed filer and is unable to do 
so. 

Execution is terminated. 

The file RPGISA/0V1 should be reinstalled 
from the RPG II generation tapes and the proqram 
re-run. 


CHAINING ERROR 

Error message displayed if Factor-1 used in 
a CHAIN operation contains invalid data. See the 
CHAINED RECORD PROCESSING table in Chapter 8. 

Display the orooam name of the file and 
then messaqe OTMIO. 

None. 


DATABUS INPUT ERROR 

Error message displayed if the format o< a 
number being read from an input file is incorrect 
(not correct Databus format). 

Display messaqe OTMIO. 

None, 
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QTM15 


DEBUGS 


Explanations 
Program Actions 

User Responses 


QTM16S 

Exolanations 

Program Actions 
User Responses 


QTM17S 

Explanation S 

Program Actions 

User Responses 


Message written on an output file whenever 
the DEBUG operation is executed. 

A series of records are written on the 

output file# according to the format of the DEBUG 

operation. 

None. 


DEC/BIN ERROR 

Error message displayed if a field or 
literal# used as an array index or a record 
address of a Chain file# is less than zero or 
greater than 65535. 

Display message OTMIO. 

None. 


DELETE PROTECT 

Error message displayed if an attempt is 
made to shorten a disk file which is delete 
protected. 

Display the program name of the file and 
then message GTM1Q. 

None. 
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□TMie: 


DRIVE OFF LINE 


ExpI enat4 on * 

Proaram Action* 

User Response* 

0TM19: 

Explanation * 

Ppoaram Action: 

User Response: 


OTM20I 

Explanation: 

Program Action: 
User Response* 


Error message disDlaved if an attempt is 
made to access a disk drive which is either 
ohvsicallv absent or off line. 

Display the proaram name of the file and 
then message OTMIO. 

None. 


DSPLV 

Message displayed whenever the DSPLY 
operation is executed. 

The contents of one or two fields are 
subseauentlv displayed/ deoendinq upon the format 
of the DSPLY statement. 

If the cursor is on after the contents of 
the last field are displayed/ the proaram is 
waitina for data to be entered by the user. This 
data will become the contents of the Result field 
used in the DSPLY operation. 


DSPLY FIELD TOO LARGE 

Error message displayed if the lenqth of a 
field beinq displayed in the DSPLY operation is 
areater than 100. 

Display messaqe OTMIO. 

None. 
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QTM21: 


DUPLICATE KEY 


Exolanat1on! 

Proaram Action; 

User Response: 

0TM22'! 

Exolanat1 on! 

Program Action: 

User Response; 

QTM23: 

Explanat1 on: 

Proaram Action: 
User Response: 


Error messaae displayed If the proaram 

attempts to add a record to an Indexed file and a 

record already exists with the same key. 

Display the proaram name of the file and 
then the messaae OTMIO. 

None. 


END OF TAPE 

Error messaae displayed If the end of the. 
tape Is encountered while readina or writing a 
Cassette file. 

Display the proaram name of the file and 
then message OTMIO, 

None. 


ENTER DATE AS MM/DD/YY 

Displayed if any of the special words; 

UDATE» UDAY» UMONTH, or UYEAR were used in the 
source oroaram. 

Walt for Input. 

The desired date should be typed in. The 1 
format of the date is fixed, in that Sept. 5# 
1973 should be entered as 09/05/73. 
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QTM24: 


ENTER EXTERNAL INDICATOR SETTING IN BINARY 


E xd! anation : 

Program Action! 
User Response! 


0TM25: 

ExdI anation: 

Proaram Action! 
User Response! 


0TM26! 

ExdI anat i on! 

Proaram Action! 
User Response! 


Displayed if any of the external 
indicators* U1 to U8* were used in the source 
program. 

Wait for inout. 

The values of the external indicators used 
in the program should be typed in. Detailed 
formatting information can be found in Append! 

A. 


EOF AND NO INDICATOR 

Error message displayed if a READ operation 
encounters an end-of-file condition and no 
indicator was specified in columns 58-59. 

Display message OTMIO. 

None. 


ERROR HALT n 

Messaqe displayed at the end of a cycle if 
Halt indicator n is found on. 

Display message OTMIO. 

None. 
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OTM27* 


FILE FORMAT ERROR 


Explanation* 

Program Action: 
User Response* 

0TM28: 

Exolanati on* 

Program Action* 

User Response* 

0TM29* 

Exolanation* 

Program Action: 
User Response* 


Error message displayed if the format of a 
fixed format disk file does not match the program 
specifications of the file. 

Display the program name of the file and 
then messaae OTMIO. 

None. 


FILE SPACE FULL 

Error message displayed if an attempt is 
made to allocate space to a disk file when either 
the disk is full or no more segment descriptor 
slots are available for the file. 

Display the program name of the file and 
then message UTM10. 

None. 


FORMAT CORRECT. CONTINUE? 

Message displayed if the format of the tape 
header labels was correct. 

Wait for input. 

If the correct tape is mounted* a "Y" 
should be typed in so processing can continue. If 
the incorrect taoe is mounted# an "N" should be 
typed in# which will stop program execution. 
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OTM30; 


FORMAT ERROR/ TRY AGAIN? 


Exp 1anation: 

Ppoqram Action: 
User Resoonse: 


0TM31: 

E xdI anat i on: 

Rroaram Action: 
User Resoonse: 

0TM32: 

Exolanation: 

Prooram Action: 

User Response: 


Error messaae displayed If the format of a 
number beina entered durina a DSPLY operation 
not correct CIncorrect Databus format). 

Wait for input. 

A "Y" should be tVDed in if the user wishes 
to re-enter the data. A "N" should be tvped if 
the user does not wish to trv aqain. 


ILLEGAL FORMAT IN LABEL 

Error messaoe displayed if the format in 
the HDR2 label of an input tape is not M F M . 

Display messaae OTMIO. 

None. 


INVALID BUFFER ADDRESS 

Error messaae displayed if the buffer 
address in a Record Address file is invalid. 

Display the proaram name of the file and 
then messaoe OTMIO. 

None» 
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0TM33; 

Explanation ; 

Program Action; 

User Responsei 


0TM34: 

Exolanation* 

Program Action; 
User Resoonse; 


0TM35: 

Exolanation: 

Program Action; 
User Resoonse; 


INVALID INDEX 

\ 

\ 

Error message displayed if an array index 
is less than l or areater than the number of 
elements in the array. 

Di?olav message 0TM55. If the.response to 
this message is Resume# the first element of the 
array is accessed. 

None. 


LABELS; 

Message displayed prior to display of tpoe 
labels during header label tape processing. 

Display header labels. 

None. 


MATCH SEQUENCE ERROR 

Error message displayed if thp seouence of 
data.in any specified match fields is not as 
specified on the File Description Specs. 

Display message OTMIO. 

None. 
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0TM36: 

Exolanation: 

Proqram Action: 
User Response: 


OTM37: 

Exolanation: 

Program Action: 

User Response: 

0TM38: 

Exolanation: 

Proqram Action: 
User Response: 


MORE CAROS? 

Message displayed when the card reader 
hooper becomes emotv. 

Wait for input. 

If more cards are to be processed# they 
should be out into the hoooer and a "Y M typed in 
If there are no more cards to be processed# an 
"N" should be typed in# which will cause an 
end-of-file condition on the reader. 


MULTIPLE CHAINED OUTPUT IN SAME CYCLE 

Error message displayed if the program 
attempts to write two or more chained output 
records into the same file durina a single cycle 

Display the program name of the file and 
then the message OTMIO. 

None. 


MULTIPLE LOADER OUTPUT 

Error message displayed if more than one 
record is written to the LOADER device. 

Display message OTMIO. 

None. 


APPENDIX E. OBJECT TIME MESSAGES E-13 






0TM39: 

ExdI anation: 

Program Action: 
User Response: 

□TMao: 

ExdI anation: 
Program Action: 

User Resoonse: 

0TM41* 

Explanation: 

Program Action: 

User Resoonse: 


MULTIPLE UPDATE IN SAME CYCLE 

Error messaae displayed if the program, 
attempts to write two or more Records onto an 
Update file during a sinale cycle. 

Display message OTMIO. 

None. 


NO DATA FOR TABLE OR ARRAY 

Error message displayed if there is no data 
for a pre-execution time table or array. 

Display message 0TM55. If the response, 
to this message is Resume* the table will remain 
empty and the oblect oroaram will resume 
execution. 

None. 


NO HDR1 LABEL - NO PROBLEM 

Message displayed if the HDR1 label is not 
present on an output tape. 

The program wi11 supplv a dummy HDRi label 
and processing will continue. 

None. 
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QTM42: 

Explanation: 

Proaram Action: 
User Response: 


0TM43: 

Explanation: 

Proaram Action: 
User Response: 


OTM44: 

Explanation: 

Proaram Action: 
User Response: 


NO LOADER OVERLAY 

Error messaae displayed if the source 

oroaram has specified the LOADER device and the 

loader object file (RPGLDR/QV1) does not exist. 

Execution is terminated. 

The file RPGLDR/0V1 should be re-installed 
from the RPG II aeneration tapes and the oroaam 
re-run. 


(NO SUCH FILE) 

Error messaae displayed if» when namina an 
inout file durina the file ooenina seauence# the 
named file does not exist. 

A file name will be asked for aaain. 

The name of an existina file should be 
typed in. 


NON-ZERO BLOCK COUNT 

Error messaae displayed if the block count 
in the HDR1 label of an input tape is not zero. 

Display messaae QTM1Q. 

None. 
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0TM45: 


(NOT READY) 


ExdI anat1on: 

Proqram Action: 
Usep Response: 


0TM46: 

ExdI anat1 on: 

Ppoqpam Action: 
User Response: 


0TM47: 

ExdI anation: 

Ppoqam Action: 

Usep ResDonse: 


Messaoe displayed when the proqram attempts 
to open either the tape unit op c^rd peadep and 
the device Is not In a peadv condition. 

Walt fop device to become peadv. 

The device should be made peadv. 


NUMERIC FIELD ERROR 

Eppop messaqe dlsolaved if,a.character in 
a numeric field Is not a diolt. 

Display messaoe OTMIO. 

None. 


OPEN XXXXXXXX AS YYYYYY FILE: 

General messaoe displayed durlnq the file 
openlno sequence for everv.file described In the 
Dpooram. The ppooram name for the file will,.,, 
appear In place of the X's and the type of file 
will appear in place of the Y # s. 

Dependjno yoon the type of the device . 
specified for the file or# If a DISK file* 
whether it has an assionable or defined naijie» the 
DPoaram will either suddIv a name after this 
messaqe or wait for Input. 

If the file is an assionable DISK file the 
aopropriate f11e name should be typed in. An 
extension of "TXT" and "all drives" will be 
assumed if neither the extension nor drive number 
1 s supdI i ed. 
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0TM48 


OPT TEST LOOP 


Exolanation: Error message displayed if all record tvDes 

for an incut file are described as optional and 
the current incut record is not identifvable. 

Program Actions Display message OTMIO. 

User Response: None. 


0TM49: PARITY ERROR IN INDEX. RE-INDEX 

Explanations Error message displayed if a parity is 

found in the index of an indexed (ISAM) file. 

Program Actions Display the program name of the file and 

then the message OTMIO. 

User Responses When job terminates# use the INDEX 

utility to re-index the file. 


UTM50 S 

RE-TRY 

DECLINED 

E xp1 anation: 

Message 

message 

displayed if the response to 
OTM30 was # N # . 

Program Actions 

Display 

message OTMIO. 

User Response: 

None. 



0TM51S READ PARITY 

Explanation: Error message displayed if a parity fault 

occurred while reading a disk file. 

Program Action: Display the program name of the file and 

then message OTMIO. 
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User Response* None 


0TM52: 

Explanations 

Program Action 
User Response! 


READER CHECKl 

Error message displayed if a card reader 
error is detected. 

Display message 0TM56. 

None. 


0TM53! 

RECORD FORMAT ERROR 


ExdI anation! 

Error message displayed 
file number or logical 
record do not match the 
file table. 

if the Physical 
record number in a disk 
entries in the logical 

Program Action! 

Display the program name of the file and 
then message OTMIO. 

User Response! 

None. 



QTM5«: 


RESULT OVERFLOW 


Explanations Error message displayed if the result of an 

arithmetic operation is too large for the result 

field. 


Program Action! Display message OTMIO. 


User Response! None. 
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0TM55S 

Explanation: 

Proaram Action: 
User Response: 


0TM5B: 

Exp 1anation: 


Proaram Action: 
User Response: 


RESUME/BY PASS/CANCEL/ABORT 

General error messaae displayed after many 
other specific error messaaes to aive the user 
the option as to what action should be taken bv 
the proaram. 

Wait for inout. 

Four different responses are allowed. 

Typina an 'R' will cause the proaram to Resume 
execution at the point where the error occurred. 
Typina a 'B' will cause the proaram to Bypass the 
current cycle and read the next record. Tvoino a 
'C' will Cancel proaram execution and close all 
the files. Typina an 'A' will immediately return 
control to the ooeratina system without closina 
any files. 


RESUME/CANCEL/ABORT 

Displayed after messaae 0TM52. Check card 
reader indicator liahts. If STACKER and DATA 
liahts are both off* an invalid punch combination 
has been detected in the last card in the 
stacker. If the STACKER liaht is on* the stacker 
is full. If the DATA liaht is on* the last card 
in the stacker was read incorrectly. 

Wait for inout. 

Remove the last card stacked* correct it 
if necessary and insert it in front of the cards 
in the hopper. Type 'R' to resume. Type *C* to 
cancel proaram execution or 'A' to abort if the 
error cannot be corrected. 
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OTM57: 


RIO TESTS FAILED 


Explanation* 

Program Action* 
User Resoonae* 


0TM58 * 

Exolanati on* 

Program Action* 
User Resoonae* 


0TM59* 

ExdI anat1 on* 

Program Action* 
Usep Resoonae* 


Error message displayed if a record in an 
input file can not be identified; i.e. does not 
match anv of.the Record Identifying Codes on the 
InDut Specifications. 

Dlsolav message GTM1Q, 

None. 


SORT OF NEGATIVE NUMBER 

Eppop message disDlayed if the SORT 
operation was attemoted on a number less than 
zero. 

Display message OTMIO. 

None. 


TAPE BLOCK COUNT BAD 

Eppop message disolaved If the block count 
in the EOF 1 label of an input tape Is not the 
same as the number of blocks processed bv the 
program. 

Display message OTMIO. 

None, 
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QTMfeO: 

Explanation: 

Proqram Action: 
User Response: 


0TM61: 

Explanation: 

Proaram Action: 

User Response: 


0TM62: 

Exolanation: 

Proaram Action: 

User Response: 


TAPE PROCESSING ABORTED 

Message displayed if the response to 0TM29 
w a s a " N " . 

Display message OTMIO. 

None. 


TOO MUCH DATA FOR TABLE OR ARRAY 

Error messaae displayed if a pre-execution 
time table or array has been entirely filled and 
there is another record of data for that table or 
array. 

Display messaae OTM06. If the response to 
this messaae is Resume# the offendina record will 
be ignored and the table loadinq process will 
continue. 

None. 


UNFINDABLE FILE 

Error message displayed if there is no file 
zero on a Cassette tape. 

Display the proaram name of the file and 
then messaae OTMIO. 

None. 
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QTM63: 

Explanation: 

Program Action: 

User Resoonse: 

QTM64: 

Explanation: 

Proaram Action: 

User Response: 

0TM65: 

Exolanation: 

Proaram Action: 
User Response: 


WRITE PARITY 

Error message displayed if,a parity fault 
occurred while writina a disk file. 

Display the oroaram name of the file and 
then messaqe OTMIO. 

None. 


WRITE PROTECT 

Error messaqe displayed if an attempt is, 
made to write on a disk file which is write 
protected. 

Display the proaram name of the file and 
then messaae OTMIO. 

None. 


WRONG BLOCK LENGTH 

Error messaqe displayed if the block lenath 
in the HDR2 label of an input tape is not the 
same as that specified in the source proaram. 

Display messaqe OTMIO. 

None. 
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QTM66: 

Explanation s 

Proaram Action: 
User Response: 


GTM67: 

Explanation: 

Program Action: 
User Response: 


WRONG RECORD LENGTH 

Error message disolaved if the record 

length in the HDR2 label of an inout taDe is not 

the same as that soecified in the source program. 

OisDlav message 0TM1Q. 

None. 


3 FILES 

Error message disolaved if only three disk 
files were specified in the program* but more 
than three are being used during program 
execution. 

Display message OTMIO. 

None. 
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The PPG II Library Facility 

An integral component of the PPG II compiler system is the LIBRARY 
facility. This facility includes the three system library files* 
RPGALIB/RPG# RPGBLIB/RPG and RPGCLI0/RPG* the library 
pre-processor* RPGPP* and* optionally* one user library file. The 
libraries contain fixed code seauences which can be selectively 
included in an RPG II object program* depending udoo the 
particular operations specified in the source program. The 
ore-processor transforms a library file from the standard text 
(assembler) format into a format compatible with the RPG II 
compiler. The USER LIBRARY facility allows for user written 
routines to be assembled into an RPG II object program: SPECIAL 
device drivers* user label processors* and routines referenced bv 
the EXIT operation. The calling seauences generated for these 
features will be described at the end of this appendix. 

A library file is partitioned into SEGMENTS* each of which can be 
included separately into an RPG II object program. A segment 
inclusion is done on the basis of ENTRY POINTS in the segment and 
undefined symbols in the object code. In other words* during the 
library inclusion phase of the compiler* a segment will be 
included if at least one of its entry points corresponds to an 
undefined symbol in the main dictionary. When such a segment is 
found* it becomes part of the object code and treated exactly as 
if it were code directly generated bv the compiler. Any undefined 
symbols it mav have* if not already defined previously* will then 
cause additional library segments to be included. In this wav* a 
hierarchy of segments can be included in the object code* 
depending uoon the particular operation specified in the source 
program. 

All symbols in an RPG II object program are QUALIFIED* in that 
they have the form: 

<A'CHAR>}<SYMBOL> or <SYMB0L> 

where A'CHAR is any alphabetic character. This effectively 
increases the length of a symbol to 7 characters and reduces the 
possibility of conflicts. The compiler uses this facility to 
partition the object symbols into a number of categories* 
depending on the particular function the symbol is involved with. 
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The RPG II Pre-processor 

\ • 

As discussed previously* the pre-processor* RPGPP# translates a 
text file to library format. Its input is substantially like that 
of ASSEMBLER,5* v with some additions and deletions consistent with 
qeneratinq a library file. The start of an independent seqment is 
denoted wi$h the IDENT directive* which must be the first 
statement in.the input file. The end of a seqment is the next 
IQENT d*i“®ctive* or the end of the file. In other words* IDENT 
directives partition the file into independent seoments., A 
seqment ENTRY POINT is declared bv terminatina a label with an 
asterisk. There may be any number of entry points* but there 
should be at least one. If not* there is no wav for the seqment 
to be included in the object oroaram. 

The followino table lists the additional directives accepted by 
the ore-processor. 

Pre-orocessor Directives 

IDENT Define the s$art pf a seqment* which continues until the 
next IDENT directive.or the end of the file. It must be 
the first statement in the input file. The label.and 
expression fields are ianored. The system libraries use 
the expression field to denote the hierarchical level of 
the seqment* where 0 means a primitive level and hioher 
numbers mean mor’e qeneral levels. This denotation* 
however* is for documentation purposes only. 

QUAL QUALIFY, Defines the current qualification character. 

The expression field can contain any alphabetic character * 
or can be blank. The current qualification character is 
that character which is affixed to every symbol Cdurinq 
pre-process ino) which is not explicitly oyalified. For 
example* if X were the current qualification character* 
the statement: 

LABEL MSA *CQUNT 

would be transformed into: 

X:LABEL MSA *X:COUNT 

and this latter form would appear jn the object code. 
However* this automatic oualification can be inhibited.on 
a oer-svmbol basis bv explicitly aualifyinq a symbol with 
'^CHAR^ 1 *. For example: 
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LABEL MSA *Y:CUUNT 

would be transformed into: 

XJLABEL MSA *Y:CQUNT 

if X were the current Qualification. The initial current 
Qualification character in the ore-orocessor is x. It is 
recommended that any user library routines be restricted 
to X, B* or Q Qua 1ification * so as not to conflict with 
RPG II system symbols. 

PPLIST PRE-PROCESSOR LIST control. This directive can accept the 
L or I flaas (as in the LIST directive) and controls the 
listing durina pre-processing. 

EBCDIC Sets the mode to EBCDIC* whereby all strinq characters are 
transformed into their EBCDIC eauivalent values. 

ASCII Sets the mode to ASCII* wherebv all strinq characters are 
transformed into their ASCII eauivalent values. 

The following ASSEMBLER 5 directives are illeaal as input to the 
ore-orocessor: 

SET* LOC* ORG* USE, END. 

The function of the ore-orocessor is to translate text files to 
library files. The syntax of the source code and the opcode 
specifications are checked for validity* and some directives are 
evaluated. In particular* an INCLUDE directive is evaluated 
durina pre-processinq and the contents of the included file put in 
the library file. Also* the IF and LIST directives have no effect 
durina ore-orocessina. The terminator for a label* as 

mentioned previously* declares that label as an ENTRY POINT of the 
segment in which it is located. This is a ore-processor 
evaluation; the '*' is iqnored by the compiler. All macros ana 
any directive or construct not mentioned in this section is 
exactly the same as in ASM 5* and is evaluated by the compiler. 


RPG II Callina Seauences to User Subroutines 

The RPG II system will aenerate calls to user subroutines when anv 
of the followinq 1anquaae features is invoked: 

1. SPECIAL files* 
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2. non-standard tape labels# or 

3. EXIT operations. 

In each case the name of the subroutine must be aiven in 
special columns as follows: 

1. cc54-59 - Label Exit - in the File Description Specifications# 

2. cc54-59 - Label Exit * in the File Description Specifications# 
and 

3. cc33-38 ” Factor 2 - in the Calculation Specifications. 

The compiler always uses # X'-aua1ified symbols to refer to a 
user subroutine. We will now discuss the cal lino seauence used 
for each feature. 


SPECIAL Device Drivers 

All files in the RPG oblect oroaram are described by a table entry 
called the File Description Block (FDB). The format of this table 
is qiven in Appendix C# and in the second object oroaram seament. 

A SPECIAL device subroutine will be called? to open the file# to 
read from it# to write on it# or to close it. In all cases the 
subroutine will be called with an operation code in A and the 

address of the FDB in HL. The operation codes are as follows: 

A Operation 

0 Open 

1 Input 

2 Output 

3 Close 

Thus a simple inout driver which reauires no open or clpse actions 
might start like this (remember that # X'-aualification is the 
default): 


SPCL 

*TBRTZ 


ID c N T 


SPECIAL DRIVER SUBR 

ORA 

YES< RETURN 

OPEN OPERATION? 

CP 

# 

CLOSE? 

RTZ 


YES< RETURN 

LDH 


NQ< ASSUME INPUT OPERATION 

LEL 


COPY FDB ADDR TO (DE) 


• # • 
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Non-standard Tape Labels 


A non-standard label routine Is called with the ©Deration in A and 
the FOB address in HL, The standard tape drivers may be used for 
inout-outout } use the LOI options with some tape Droaram to aet a 
listina. The operation code is 0 for open (ie header labels) and 
1 for close (ie trailer labels). The tape will be positioned 
before the first label record in each case and it is the 
responsibility of the label routine to properly position the tape 
at the beainnina of data (for headers) or before the last tape 
mark (for t rai1ers ) . 
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APPENDIX G. INPUT/OUTPUT DEVICE INTERFACES 


This section contains information about each of the I/O 
devices suooorted bv the RPG II system# including what# if any# 
actions must be Derformed bv the user for any particular device. 


PRINTER 

The printer must be correctly positioned at too of form prior to 
executinq oroorams that use the printer as an output device. The 
printer will remain at this initial position when it is opened at 
the beqinninq of obiect prooram execution. When the printer is 
closed at the completion of execution# it will skip to 
top-of-form. 


CONSOLE 

When the keyboard is used as an input device and the obiect 
proqram requires input* a will be displayed# followed by the 

blinkino cursor. The inout record should then be entered# with 
column 1 of the record beinq the character position just after the 
"* H . End-of-file for this device is sianaled by depressing the 
DISPLAY key while entering a null record. 


DISK 

Disk files may be organized with either variable or fixed lenath 
records. 

Each file sector contains 3 system bytes followed bv up to 250 
data and control bytes and a bvte containing 003 to indicate the 
logical end of the sector. Logical records are terminated with an 
015 bvte and and are packed contiguously into sectors# spanning to 
the next sector when the 250th data byte is filled. 

Fixed format files contain records of eoual length# with no 
compression of spaces. This organization is necessary to allow 
the files to be randomly processed and updated. 

Variable format is the standard GEDIT format with compressed 
blanks and variable length records. Contiguous blanks are 
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represented bv an Oil bvte followed bv a byte containing the count 
of the number of spaces compresed (2-255 In binary). 

RPG disk record formats are compatible with records written by 
other DOS programs# however# caution should be excercised in 
selecting a record length that does not exceed the maximum record 
size accepted bv,other DOS programs that may be handling the same 
data. When creating fixed format records with Databus or 
Datashare# thev must be written using the ohysicallv seguential 
access method if they are to be processed by RPG,as output# update 
or direct files. The one exception to this rule is 249 character 
records written using the physically random access method. 


CARD READER 

If the card reader is specified as an input deyice in an RPG II 
program# the object program will try to start it up during the 
open seouence. If the power to the reader is off or the hopper is 
emptv at this time# the program will BEEP and display "NOT READY" 
until power is on and cards are in the hoooer. 

After one or more cards have been read bv the program#,and the 
hopper becomes emotv# the message "REREAD EAST CARD" will be 
displayed. Place the last card in front of anv additional cards 
and ready the card reader. If there is a hardware error in the 
card reader# the,message "CLEAR READER ERROR" will be displayed. 
When the reader is made ready# the message,is removed from the, 
screen and cards continue to be read. To.indicate an end-of-file 
condition on.the card reader# an end-of-file card must be placed 
at the end of the deck. This card contains a multi-punch in card 
column one of,1-2-3-4-5-6-7-8-9. The end-of-file card 
reouirenment is in effect beginning with RPG II Version 3. 


TAPE 

RPG II supports 9-track industrv-comoatible magnetic tape as 
either an in-out or cutout device. During the open seouence# the 
RPG II object program will interrogate the.tape unit to determine 
if it is ready for operation. If the deck is not in service# "NOT 
READY" will be displayed and a BEEP will sound until the deck is 
in service. (To cause,, the deck to be in service# the tape must be 
loaded# the disable switch must be in RUN# and the REMOTE button 
must be pressed). In addition# if the TAPE is an output device# 
the presence pf a write ring is checked for# and an error message 
is displayed if one is not on the reel. 
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The user has the option# in his source program# to soecifv one of 
three tape label options: unlabeled tape# user labels# or IBM 
standard labels. The procedures for invokina one of these potions 
and for orocessina user labels are discussed in other sections of 
this manual. This portion discusses the IBM standard label 
option. TAPE INPUT 

Upon ooenina the tape# the volume label (VOLl) and the two header 
labels (HDR1# HDR2) are read and displayed. The first four 
characters of each one are checked# the block count in HDR1 is 
checked for zero# and HDR2 is checked for "F H format and the 
correct block lenath and record lenqth. If all checks are 
successful# the user is asked if the proaram should continue. 

Uoon encountering end-of-file# the first trailer label CE0F1) is 
read. The first four characters are checked and the block.count is 
compared against the internal block count. The second trailer 
label is not checked. 


TAPE OUTPUT 

Uoon opening the tape# the volume label (VOLl) is read and 
displayed. If it is not present# or if the first four characters 
are not "VOLl”# taoe processing is aborted. Next a read of the 
first header label (HDR1) is attempted. If it does not.exist# a 
dummy HDR1 label is generated and displayed. The user is then 
asked if the correct tape is mounted. If "Y" is the response# 
"HDR1" is displayed and the user is asked to key in data for 
columns 5 to 80. After the data is entered# a block count of zero 
is out in columns 55 to 60# but all other columns can have 
arbitrary information in them. Next a new HDR2 label is generated 
with the current format information and then displayed. The user 
may now enter any data in the job-step identification field 
(columns 18 to 34). The tape is now rewound# the VOLl label 
re-written# the new header labels are written# and a file mark 
written. The taoe is now positioned for normal output operations. 

Uoon closina the taoe# the current block is written on the tape. 

If the block is not full# dummy blank records are generated so 
that all data blocks will of the same lenath. A file mark is then 
written# the EOF 1 and E0F2 labels are generated ano written# 
followed bv two file marks. The tape is then rewound if so 
specified in the source program. 


CASSETTES 
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Both cassette decks may be used as RPG II I/O devices. The rear 
deck is designated CASSET1 and the front deck CASSET2. Either mav 
be used as incut or output# independently of each pther. ( The data 
on a cassette is assumed to be a standard source file (file p) in 
GEOIT format# with compressed blanks and variable lenath loqical 
records. 
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APPENDIX H. CODING SHEET SUMMARY 


H.1 COMMON FIELDS 


Column(s) Content Function# comment 


l- 2l Daqe number 

3- 5: line number Paqe/line number must be in strictly 

ascendina order# if used. 


H 

F 

E 

L 

I 

C 

0 


Form TvDe 

Header (control) card 

File description specifications 

Extension specifications 

Line counter specifications 

Input record formats 

Calculations 

Output record formats 


7: * 


Comment line identifier 


75-80; xxxxxx 


Proaram Identification: anv 6 characters. 
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H.2 CONTROL CARD (HEADER) 


Column(s) Content 


Function* comments 


6 : 


H 


To identify this source line tvDe. 


10 : 


11 : 


12-14: 


C 

D 

blank 


B 

bl ank 


1 


13-141 


12 : 


0 or 
blank 

01-13 


0 or 
bl ank 
Q 

H 

T 


Object outout 


Listing ODtion 

Suppress listing. 

List source code. 

Site of memory reauired for object 
program. 

Number of IK blocks: (IK = 1024) 

If same as that used to compile the 
program. 

For 01K-13K bvtes* otherwise. 

Number of additional Quarter blocks: 


If none. 

If one additional Quarter block needed. 
(256 bytes) 

If two ouarter blocks needed (ie a Half 
block) (512 bvtes) 

If Three Quarters needed. (768 bvtes) 


15: 

1 

< blank 

26: 


Debua switch 

To perform DEBUG operation (calculation) 
To ignore DEBUG * commands. 

Collating seouence 


A ASCII seguence. 

blank EBCDIC seguence. 
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H.3 FILE DESCRIPTION SPECIFICATIONS 


Column(s) Content Function# comments 


6J 
7-1^1 S 

15: 


16: 



18: 


F 

file name 


I 

0 

U 

D 


Compile File descriptions 

Name to be used for this file throuahout 
the program. 

File t voe: 

Inout 
Output 
Update 
Diso 1av 

File Desianation: this column must be 
blank for display and non-chained 
output fi1es. 


P 

S 

C 

R 

T 

D 


Primary -- there must be exactly one 
primary input/uodate file. 

Secondary 

Chained 

Record address file 

Table or array file (see Extension specs) 
Demand file 

End of file (input and update) 


E or 

blank for 

all files If all records of the file(s) must be 
processed before the program can be 
terminated. 


blank for 

some files If all records of the file need not be 
read. 

Seauence checkina: reauired when matchina 
fields are used. 


A Records are in ascendina order. 

D Records are in descending order, 

blank No seouence checkina. 
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19: 


File format 


F 

Fixed length records: record length 
specified will be that of all.records. 


V 

Variable length records: maximum length 
will be given. 

20-23: 


Slock length 


nnnn 

Length of block. 


blank 

Default length. 


maxima are: 

For: 


78 

Console. 


132 

Printer, 


80 

Card reader. 


9999 

Disk. 


249 , 

Cassette. 


1024 

Tape. 


80 

Loader. 


9999 

Soecial. 

24-27: 

nnnn 

Record length -- number of bytes 
per record. 

26: 


Processing mode 


L 

Sequential within limits. (Must be 

1ndexed file.) 


R 

Random. (Chained disk files and files 
processed bv ADDROUT.) 


bl ank 

Sequential. (Non-disk files must be 
processed sequentially.) 

29-30: 

nn 

Length of Indexed file keys or ADDROUT 
file record. 

31: 

A 

Unpacked Indexed file keys.. 


i 

File Is an ADDROUT file or is processed bv 
one. 


blank 

All other files. 

32: 

I 

Indexed file. 


T 

ADDROUT file. 


blank 

Any other type of file. 
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33-34 


Overflow indicator (print files) 


OV or 

OA-OG The indicator to be used, 

blank None used. 


35-38: nnnn 


Kev field startina location for indexed 
files. 


39: 


The file is further described elsewhere. 


E 

L 

blank 


On the Extension form. 

On the Line counter form. 
Neither needed. 


40-46: 


Device 


PRINTER 

CONSOLE 

DISK 

READER 

TAPE 

CASSET1 

CASSET2 

LOADER 

SPECIAL 


Printer (default is LOCAL). 

Keyboard display. 

Disk. 

Card reader. 

Industry-compatible tape unit. 

Rear tape cassette. 

Front tape cassette. 

Pseudo device for use with the DOS CHAIN 
command. 

Special input/outout device not supported 
by RPG II. 


53: A 

D 

S 

N 

U 

K 


Assian disk file name at run-time. 
Internal name is to be used externally as 
well. 

Standard tape labels are used. 
Non-standard tape labels are used. 

Tapes are unlabeled. 

Continuation line* columns 54-59 must be 
filled. 
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54-59: EXTDRV Extension and/or.drive for disk filf. 

MAXSEC Maximum number of sectors for new disk 

files. 

LOCAL The local printer is used at object-time. 

SERVO The servo printer is to be used at 

object-time. 

ASCII Tape file is written in ASCII. 

RPG name Name of user written subroutine which will 

perform I/O for a SPECIAL device or 
process non-standard Jabels. 

blank Neither a special device, nor non-standard 

labels is beinq used. 

60-62; extension File name extension to be used for a disk 

file. 

63-65: drive Drive to be selected for disk file 

(DR0-DR1). 

60-65: nnnnnn With MAXSEC# to specify LRN limit. 

66; A If new records are to be added to the 

file. (APPEND file) 

71-72: U1-U8 If the,file is to bf used only when the 

specified external indicator is on. 
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H.« EXTENSION SPECIFICATIONS 


Column(s) 

6 : 

U-18: 


19-26: 


27-32: 


33-35: 


36-39: 


Content 

E 

table or 
array 
file name 

blank 


record 
address 
file name 


Function* comments 
Form type. 


If the table or array is to be loaded at 
ore-execution time. (From file name) 
Table or array loaded at compile time if 
number of entries oer record specified* 
otherwise at execution time. 


If record address file is defined. 


name of 
output 

file If a table or an array is to be written 

out at the end of a oroaram. (To file 
name) 

name of 
an input 
or update 

file If file processed via a record address 

file specified in columns 11-18. 

Name to be used in the program for the 
table or array being defined. 


TABxxx Table name* xxx being from 1-3 

alphanumeric characters. 

array name An array name must not begin with "TAB". 


1-999 


1-9999 


Exact number of table or array entries per 

input record* if loaded at compile or 

ore-execution time. Use the sum of 

the contents of columns 40-42 and 

52-54 (entry lenaths) in computing this 

number. 

Maximum number of table or array entries. 
This number is limited by the size of 
object time memory as the whole table 
is keot in core. 
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40-42 


1-256 lenqth of a table or array entry. 


43 j 0 


If an execution time array is in 
Databus-comoat1ble format. 


44: 


0-9 
bl ank 

45: 

A 

D 

bl ank 

46-57: 


46-51: name 


Data mode 

Number of decimal positions. 

Alphanumeric. 

Sequence 

Ascendinq order. 

Descendinq order. 

No particular order. 

Alternate table: entries to this table or 
array are paired with those of the 
table described in columns 27-45. 


52*54: entry lenqth 

55: format 

56: decimal positions* if any 

57: sequence* if any 

58-74: Comments 
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H.5 LINE COUNTER SPECIFICATIONS 


Column(s) 

Content 

Function/ comments 

6! 

L 

Form tvDe. 

7-i«: 

file name 

Name of a PRINTER file. 

15-17: 

1-112 

Number of orintina lines available Der 
oaqe. 

18-19: 

FL 

Previous entry is Form Lenath, 

20-22: 

1-112 

Number of the line at which the overflow 
indicator is to be set on. (Allow 
additional lines to complete aroups of 
detail records and for totals.) 

23-24: 

OL 

Previous entry is Overflow Line. 
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H.6 INPUT RECORD DESCRIPTIONS; 


H.6.1 RECORD TYPE DEFINITION: 

\ \ 

Column(s) Content Function# comments 


6: 

7-14: 

15-18: 

15-16: 

17-18; 

15-16: 

17: 


18: 


19: 


21-41: 


21-24: 

28-31: 

35-38: 


I 

file name 


aa 

blank 

01-99 


1 

N 


0 

bl ank 


01-99# 
10-19, 
LR or 
H1-H9 


1-256 

blank 


Form tvoe 

Name of input.file containing the record 
described. 

Record order 

Any two aloha characters if no check 
for seauence is to be made. 

If records must be in order by tvoe: 
first type must be 01# rest must be 
defined in ascendina order. 

Number of records of this type in a group 

Only one. 

One or more. 

Option 

Record tyoe is optional. 

Record tvoe is reauired. 

Record identifying indicator (RID). 

Only one RID is on at a time. 


Record i dent ifi cat i on,codes: up to three 
codes whose presence is to be anded 
together per line. 


Position (column) in record of code. 
No (additional) code needed. 
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25 


32! 


39: 

blank 

Code is present in this tvDe of record. 


N 

Code is Not present. 

26: 



33: 



40: 

C 

Entire Character is code. 


Z 

Only Zone portion is used. 


D 

D i qit oart only. 

27: 



34: 



41: 


any character at all to identify this 
record type. 

H.6.2 

AND/OR LINE: 


6: 

I 

Form type 

*• 

>o 

i 

AND 

To AND the result of tests specified on 
this line. 


OR 

To (inclusive) OR the result. 

21-41: 


Additional cooes as specified above for 
these columns. 

H.6.3 

FIELD DEFINITIONS 

♦ 

• 

Column(s) Content 

Function# comments 

6: 

I 

Form tvoe 

43: 

D 

If data in Dataooint-comoatible decimal 
format. 

44-51: 


Field location# up to 256 positions 
(final - initial + 1 <= 256). 

44-47: 

1-256 

Initial position (column). 

48-51: 

1-256 

Final position. 

52: 


Dec i ma 1 positions 


blank 

Alphanumeric field. 


0-9 

Number of decimal places (numeric field) 
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53*588 Field name 

field name# 
array name or 
array element 



PAGE 

To incut initial pace number. 

59-60 8 


Control level 


Ll-19 

A control level indicator. 


bl ank 

If none needed. 

61-62 8 


Matching fields -- if fields match# 
Matching Record indicator set on. 


M1-M9 

Matching field number. 


blank 

If none used. 

63-698 


Field record relation (FRR) 


01-99 

Field only used if indicator is on*. 


L1-L9 

Data only used at previously specified 
cont rol 1 eve 1. 


MR 

Matching Record permits acceptance of data 
from this field. 


U1-U8 

Field used only when this external 
indicator, is on. 


H1-H9 

Relates field to a record type with a halt 
indicator in columns 19-20. 


bl ank 

If none needed. 

65-708 


Field indicators 


01-99 

Fie;d status indicator set. 


H1-H9 

Halt indicator set. 


b?ank 

None used. 

65-668 

(♦) 

Indicator set when numeric field value is 
greater that zero. 

67-688 

(-) 

Contents of numeric field less than zero. 

69-708 

CO) 

Numeric field eoual tp zero. 


(blank) 

Numeric or alphanumeric field blank. 

12 
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H.7 CALCULATION SPECIFICATIONS: 

Column Cs) 

Content 

Function, comments 

6: 

C 

Form type 

7- 8: 


Calculation selected: 


LQ, L1-L9 

At control break (L0 is always on). 


LR 

When Last Record read. 


SR 

As part of a subroutine. 


blank 

Otherwise. 


AN 

This line of indicators is to be ANded 
with the previous one. 


OR 

This line is to be ORed with the previous 
line. 

Note: The line containinq the operation 

code is the last in a series of ANds 
and ORs. 

9-17: 


Indicators controllina the performance of 
the operation. 


blank 

If operation is to be done for every 
record (but see columns 7-8). 

10-11: 

13-14: 

16-17: 

01-99, 
L1-L9, 

LR, MR, 
H1-H9, 
U1-U8, 
OA-OG, 

Indicator. 


OP UV 

If performance of operation is dependent 
on the specified indicator. 

9: 

12: 

IS: 

N 

When indicator is Not on. 


blank 

When indicator is on. 
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18-27 

33-42 


Factor 1 
Factor 2 


field name# 
table name* 
array name# 
array element# 
literal# 

PAGE# UDATE# 

UMQNTH# UDAY# 
or UYEAR 

a label for one of the followinq oDerations (factor 1 
onlv): 

TAG 

BEGSR 

ENDSR 

a file name for one of the explicit I/O operations 
(factor 2 only): 

CHAIN 

DEBUG 

DSPLY 

READ 

FORCE 

the name of the external subroutine (factor 2 only) 
called by the EXIT command 


28-32 1 


Operat1 on 


ADD 

Z-ADD 

SUB 

Z-SUB 


Arithmetic operations; 

Combine factor 1 to factor 2 qlvina the 
result. 

ADD factor 1 to factor 2. 

ADD factor 2 to a field of Zeros, 
SUBtraet factor 2 from factor 1. 
SyBtract factor 2 from a field of zeros 
qlvina the result (the negative of 
factor 2). 
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MULT 

DIV 

MVR 

SORT 

XFOOT 


MULTiply factor 1 bv factor 2. Note* that 
the length of the result could be ud 
or the lenqths of the two 
factors. 

Divide factor 1 bv factor 2 storinq the 
quotient in the soecified result 
field: factor 2 may not be zero. 

Move the Remainder of the previous Divide 
to t he resu11 field. 

Place the SQuare RooT of factor 2 in the 
result field: factor 2 may not be 
neqative. 

Crossfoot: the result is the sum of the 

elements of the array named as factor 2. 


COMP 


TESTZ 


BITON 

BITOF 

TESTB 


Comparison and test: 

COMPare factor 1 to factor 2 and as a 
result set indicators showing whether 
factor 1 is greater than* less than* or 
eaual to factor 2. 

Test zone of the leftmost character of the 
result field settina indicators as 
fo1 lows: 

+ if &* or A-I (12 zone) 

- if -* or J-R (11 zone) 

0 otherwise. 

Binary field operations: 

Usinq bit positions specified in factor 2* 
operate on 1 or more bits of the result 
field. Factor 2 may be a string of 
decimal digits each specifying a 
position or it mav be the name of a 
one-oosition mask havinq a bit on 
wherever a result field bit is to be 
operated on. 

Set specified BIT(s) ON. 

Set BIT(s) OFf. 

TEST Bit(s) and set indicators to show if 
the bits specified were all zero* of 
mixed values* or were all ones* 
respectivelv . 
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SETQN 

SETOF 


MOVE 

MOVEL 

MHHZQ 

MHLZO 

MLLZQ 

MLHZQ 


GOTO 

TAG 


LQKUP 


Indicator set and reset* 

SET indicators listed in columns 5A*-59 ON. 
SET listed indicators OFF. 

Moves 

,\ 

Move the contents of the,field.name$ as 
factor 2 to the result field# ignoring 
decimal points. 

MOVE oharacters of factor 2 starting with 
the rightmost position. 

MOVE characters# starting with the 
Leftmost oosition. 

Move High to High ZOne! the leftmost move 
zgne onlv from factor 2 to the result 
field. 

Move High to,Low ZOne* from the leftmost 
position of factor 2 to the rightmost 
of the result. 

Move Low to Low ZOne* rightmost to 
rightmost. 

Move Low to High ZOne: rightmost to 
leftmost. 


Branching: 

Factor 2 names the label (factor D of 
the instruction with which to resume 
computation. (GO TO somewhere.) 

TAG (label) a location in the calculations 
with the name given as factor 1. 


Table lookup: 

LQoK UP factor 1 in table gr array ngmed 
as factor 2. The result field contains 
the name of the alternating table or 
array) the resulting indicators give the 
results of the search. 
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BEGSK 

ENDSR 

EXSR 


1. Read 

2. Calculate 

3. Write 

EXCPT 

DSPLY 


DEBUG 


FORCE 

READ 


Subroutine operations: 

BEGin a SubRoutine whose name is contained 
in factor 1. 

END a SubRoutine and return to command 
following the EXSR which caused this 
routine to be executed: factor 1 may 
contain a label (tag). 

Execute the SubRoutine named as factor 2. 


Programmed control of Inout/Outout 
Note: normal program cycle is: 


Write exception records (identified by an 
E in column 15 of the output format 
description). 

Display on the console (file named as 
factor 2) the data specified as either 
factor 1 and or as the result field or 
both? if the result field is.used* the 
machine will wait for input from the 
keyboard to enter into the named field or 
array: if only the enter key is pressed 

then no change will be made. 

Output data for DEBUGaing the program: 
write the data specified in the factor 1 
and result fields into the file named as 
factor 2? also list those indicators which 
are on. Column 1 of the Header card must 
contain a 1 for this to be executed. 

FORCE the file specified as factor 2 to be 
read on the next program cycle. 

READ a record from a demand file during 
the current cycle. Note -- record 
identifying indicators are npt 
automatically turned off until the end of 
the cycle. The resulting indicator 
designated in columns 58»59 will be turned 
on if the end of the file has been found. 
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35 - 42 : 

43-48: 


49-52: 

49-51: 

52: 


CHAIN 


SET'LL 

BEEP 

CLICK 


Read op write a record of a CHAINed, file 
(factor 2). Columns 54-55 shpyld contain 
an Indicator to be turned on If the record 
specified as factor 1 Is not found. 

Set lower limit (factor l) for process 1ng 
sequential Indexed file (factor 2), 

Emit an audible BEEP. 

Emit an audible CLICK, 


External subroutine access: 

The following to commands are used to 
generate a call to an external (assembly 
1anguage) subroutine and to pass an 
argument address vector to It. (See 
appendix E of the DATAPQINT RPG II User's 
Guide for further information.) 

EXIT EXIT to (call) the pre-processed external 

subroutine named as factor 2. 

RLABL Pass the LABeL (data name) In the Result 

field to the subroutine EXITed to. The 
result field contains the name of a field, 
tab)e or array or It contains INxx where 
xx is an Indicator) the field length and 
number of decimal positions may be 
specified. The RLABL commands must 
immediately follow the EXIT 1nst ruction. 


Factor 2, see above 

Result field 

field name 
table name 
afr«iy riame 

array element 


Result field definition (blank if 
oreviouslv def1ned) 

1-256 Field length . 

0-9 Number of decima1 oos1t1ons, if field 

numeric . 
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blank 


If field alphanumeric 


53s H To Half-adiust (pound) result, 

blank Truncate result. 

54-59: 01-99, 

H1-H9, 

L1-L9, LR, 

OA-OG or 

QV Indicators to be set deoendina uoon the 

result of the ooeration. 

54-55: ( + , >) Set if result positive, areater than, or 

hiqher. 

56-57: (-, <) Result neaative, less than, or lower. 

58-59: (0, =) Zero, eaual, or have found one. 

60-74: Comments 
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H.d OUTPUT FORMAT SPECIFICATIONS: 
A.6.1 RECORD TYPE DEFINITIONS 


Column!#) Content Function* comments 


6 : 

7-l^ij 

15: 


16-16; 

16: 

17; 

18: 


19-20: 


21 - 22 : 


0 


Form tvoe 


file name Name of file being described, 
blank For subseauent record description#. 

Record type 


H 

D 

T 

E 


Heedjnq records. 

Detail records. 

Tptal records. 

Exception records (to be written during 
calculation time). 


ADD 


To add a record $o a sequential or indexed 
disk file. (optional) 


F 


blank 


To perform (Fetch)_the printer page 
overflow routine if at the end of the 
page. 

Otherwise: overflow tvoe printing done at 

the normal point in the cvcle. 


space code 
space code 
0 

1 or 
b 1 ank 

2 
3 


Space before printing. 
Space after. 

Zero 1ines. 

One line. 

Two 1ines. 

Three 1ines. 


01-99 Skip to specified line of page before 

printing* next page if number less than or 
eoua1 to current one* suppressing overflow 

orintino. 


01-99 Skip after printing. 

blank No skip before or after or both. 
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27-28: 

30-31: Output control Indicators. 

01-99, 

L1-L9, 

H1-H9, 

U1-U8, 

OA-OG, 

OV, MR, 


LR 

or 

(On only at 
output.) 

end 

of oroqram durinq 

total 

IP 

or 

(On only at 
program,) 

the 

very beginning of 

the 


23: 

26: 

29: N If output when indicator Not on. 

blank Otherwise. 


A.8.2 AND/OR LINE: 

6 : 0 

14-16: .AND 

OR 


Form type. 

AND indicator 1ines. 
OR lines. 


23-31: indicator specifications 

A.8.3 RECORD FORMATS AND FIELD EDITING: 


Column(s) Content Function, comments 

6: 0 Form tvoe. 

23-31: indicat or soecifications (see above) 

blank if field always used 
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32-37* 


38* 


45-47* 

39* 

40-43 S 
44: 


Source.of data to be.printed, 
field name Name of a field previously used In the 
oroqram. 

table name 
array name 
array element 
PAGE 

UDATE# UDAY# UMONTH# or UYEAR 

blank To write a constant of value given in 

columns 45-70, 


Edit codes 


blank 



No editing or use 

specified 

Np 

CR 

m 

below). 

Commas? 

Zeros to 

print? 

Sion 

1 

A 

J 

Yes 

Yes 


2 

B 

K 

Yes 

No 


3 

C 

L 

No 

Yes 


4 

D 

M 

No 

No 



X 

Y 

Z 


'I' 


B 

blank 


Remove olus sign. 

Date field (insert V" # s). 

Zero suoDress. • 

Replace leadinq zeroes with asterisks. 
Floating dollar sign. 

(These are used in conjunction with edit 
codes 1-M# above.) 

Blank or zero field after writing it. 

Do not destroy it. 


1-256 


End position of field in output record. 


0 

blank 


Field is Dataooint-comoatible numeric. 
Otherwise. 
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constant 
edit mask 


Constant to be printed# columns 32-37 
(field name) must be blank. 

Mask to control editing of the field when 

column 38 is Dlanki 

Character! 

F unction! 

$ Fixed or floatinq dollar sian, 

* Reolace leadinq zeroes bv 

asterisks. 

0 End suppression of leadina zeroes. 

& Replace this character with a 

space. 

- or CR Write sian if negative, 
blank Replace with the next consecutive 
digit of the field, 

other Write this character here -- mav 
not begin an edit mask. 
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APPENDIX I. PROGRAM SIZE 


T^ie. compi ler will display several useful values for 
determinina the oroaram size. First# the number of labels allowed 
bv the compiler is.displayed. If this number is exceeded# the 
undefined labels will be flaaaed. The primary transfer address 
indicates the first executable statement address (in octal). The 
last location used indicates the maximum octal address used in the 
program. See the table below for a maximum octal value for each 
machine size. The,number of labels used indicates the number of 
labels in the dictionary. To Determine the number of label 
entries unused# subtract the number of labels used from the number 
of 1abels allowed. 

A program mav be compiled on a machine which contains fewer memory 
locations than reauired for execution of the oroaram. It is 
therefore necessary to determine if the last location used.exceeds 
the last location in the execution machine. For example# it mav 
be possible to compile an 18K proaram on a 16K machine# provided 
the label table does not overflow. But the 18K oroaram will not 
execute on a 16K machine. 


Si ze 


Maximum Address 

2200 - 

16K 

37777 

5500 - 

24K 

57777 

5500 - 

36K 

107777 

5500 - 

48K 

137777 


APPENDIX I. PROGRAM SIZE 


1-1 



